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Ai/ul voc§ tern a mdhor^ 
imdag^em 
microcomputagSo 
queexistB. 

O TK 63 id ertiinou mo/s do 2 miih5&5 de posioos. 

£/© ^ mutio i^cli d» operar. t/so o Bosk, o o memdrh cH^ga 
oi464KbYtBi. oaceita monitor, improisora e joyitick 

Num in%tonte wx* voi ttsfar resohendo prohiowai 
progromcndo, ou venrendo os muitoi jogoi diiponiveii. O 
TK 83 odo * id o me/hor /nfcJof So. Tomb^m 4 a mali dlv«rttda. 



Aqui vocSj^ apitca 
OS seus conhedmentos 

Com TK 95 voc^ foirtb^m podo t» dtvwtir mtjito: oh 
Item thinrmu do /oqm dhpGnfv^is. 
' Mot oto /d d moti aoWs Itcado. Tom so ftwany (6 pron to 
iinguag«nt Batlc o Assombfor. Tociado iipo mdquino do 
■^crovr. com 40 tochs e \60 hnxH^. 16 ou 4BHdtf 
fnmndrio RAM. e Wdo ROM. Grovocao •m hlgh-ip^od. 
|t (unf6o Vorily. pora motor soguran^o. 

Quando voc^k /d osUver apaixonado por 
taiaocomputofdo. oio vot corrotpOfKhr totalmonto^ 



Voc£ 36 descobre o Quants preci$a do urn MkroCom- 
putackN- JR ds Sysdata depots que o conhace de perto. 

Voce va\ ter certfiza c(e que fe* um 6timo negCcio ao 
adquiri-k> ^issinn que o cotocar na sua empre^ ou na sua 
case. 

O JR da Sysdata * rApido, 6 verefttil 6 compecto. 
APIJCA9OES: 

Cpntabitidade, controte de corrta^ a pagaJ'. controAe de 
ccrttas a receber, follia de pagfamsrito, controFe tie esto- 
quB, contfolQ de cJientes, relatWo de clients, maEa diretSr 
i:iik:ulos de orpamemos f Lnanceifos^controle de processes 
industriais, cSlcuFos de en9erihaii9. oSlculos ds estatfsti- 
cffi. fun^fies matem^ticas, hjnpOes I'igicas em cadeia de 
caracteres {STRINGS), gr^ficos, jogos anirrtados, progra^ 
mas educaciooais. 
O JR PERMITE AINDA: 

O aCKSO a gfand-essistemas de co<nputa(;:flo, a comuni- 
caoSo entre os departameritos de Empresa, i&fatusr pro- 
gramss especfficos para cada Emprise. 

E, como se nSo basta^se, ele 6 Mlcro-Compiitador da 
mAnor pra90 do marcado. 

Com tcxjas as qualidades que Xem, JR daSysdata nam 
precisava ser tap econOmico. Mas fe. 

A^nal, ele ^ o rnas complete MicrCHComputadOf de sua 
geracSo. 

Fndusive no pr^o. 

VocS pode testar estas e outras qualidades do JR em 
qualqjer dos nossos revendedores. 







AV. PACAEMBO, 788 
CEP 07755- TEL 67.5300 




TK2000^. 



*" h 91 Wi m. m'. -M. '-M. m^ ^ ^ HH WBA 

10 1« M Ikf to fc hi r 



T 




/HrBH-:^*'^* 



ftEV$NDEQ<mES: SAO PAULO/Cwtal Ad D>ars 964. 6200; ADP SvwtBni 227.6100; fiuckM Sai.7SS6; CinAnta 3e.€9ei f Coftipumwk«TinQ 212.3004 Compute S&2. 6533 Com 
pucHlcmU 231.^77. faia Lfto 3^71^1: Foi^ihui 953.0448; Gunhn ^.3051; Hortt 203.5697; btwf a» SG2.5603.. Lhtir 210.G£Q9: MiCHircn SSI-OQllEJ' Mlprq^ittc :^,«»i11- N^fl Gtin 
(Jo BI4.3663: O.P..A, 3S.8E85; PLarKlitid 27S.01QI, PUnlel B43.9%3; Sdncci a:id.O^; STrvimc^ i^.^SH. Stjcirn.^c. ?S7.€£09. SOS. S&.TEfie; Runner's 4£a.0&&7: CwnpfaiM - 
ComilMJief Houufig? ^£&Ei: Ci>m{]u1>qut) 37.6332: Fi^iolok 32 44'IS; Rto Qbtd - ComI Micro Cusmos ^.SSdl; RBMrJka Prvta Comp'^iErTi OS 1 195 Arwaa Copcc 41 377S- 
Taubflti En'f'con 2^ 2:?S2. Mogl 0ii*fu - i:^4;^[iiiiK]^1.033&: Bnaanfa P*iriivta - 1n1ord!it(»&43,5ia8: SMn;MvfllB' SiprC'33.41£e: CAlvt^uvA tci4>dalt[»?;.Sng- HlO 
PE JA Nf I RO.' Capital i: lof ■ 723 &?3^ , Con^pui.quc 2&7 1 D93; G D M Infonnaiiai 7BA .6744; jR tfe ^3tet 246,4190; KnSlijin 391 .3tffir Sumirwiio 274 .86*5; PstrApofb - f oro Od 
4:^41' i:j.'^i. HINA5CERAIS.'B«loHori»fit« CG<rivucn¥22e,^3a; Cunpufflc 225.2617; KHnJirDTi 22.0eU: Mirtu D^li«r337.7946: Pofwvd* C^^ 5810 

HlOailANDE DO SUL.'l>eriaAt»Bn) A1^^ulcl^!3 2&.1 194; Apbiw: 24.t>ffi&; OI^>r»l 24 1411, h^icrosts 22 9792; Pakrtu - Slii«nBii!kj ;2?.^ld: h«v« hUmbuivo M<[:Tt:imv(]a 
31-4721, PARANA yCuHtibi ComfKiiH^uB 243.1731, Micro $vit«ni 2J?3!i33; Mi>rgi.-n 733 06S3; Pom* Gtiwh Grirpo Data Womorv 24.61-9T, LondtJn* ■ Show Cdrntwater 
;:3 9^4. GOIAS/Co^Anui C,i» do MKrocompufador 223 HSC- Giuf>om2S 0226; SANTA CATARIHA/Flori«nAimBl C»tTD27 6^3 4nfotH; 23 4777 DHASfUA/Dblribt 
Fm^iI Cu'7-|ju^h[jw 2/3 2123;: PigpUC ^2S,.^.^^. MATQ gnossO UO SUL/Cwniw Grmdi DRL 382.64^; Video 3;i.42?Cl. C£ARAr^Port4toi« Socompv 244.4691 
PAJ1AleA/J«i0P*HCM Ma(kku221.670: PERhlAMBUCO/RKHD iltjg.4vi^4] VS^ 



Aqui voc§ mostra 
tudo o que sabe. 

O TK SOOO Coior f^m tvdo quo oi 
meihoroi mtcrot t^m Mono* opro^o. 
Aceilo dltkotio, improMorofid vm com 
tniorfoco). ofto roioh^Ho grdffco 6 coroi 
to tw Ugodo oo 9 oo TV cotorido 
Tern 64 k dc memdrfo RAM e 
"-ndrta ROM Com oxc«lonto 

Vofft poae moi/ror tudo o que taho. 
dm pf»ci%ar mosirar muHo dinh«iro. 
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QUE UM MiCROCOMPUTADOR 

FAZ POR MIM? 

I Ate hoje para responder es^ 
|sa pergunta so existia um 
jeito: fazer sua empresa 
comprar e instalarum microcompu- 
tador e aprender por si mesma. 

programa Micro Esforgo aju- 
da voce a entender o que um micro 
computador e e o que ele faz dentro 
da sua empresa. antes que voce in- 
visia um centavo nele. 

COMO ESCOLHER 

EOUIPAMENTO? 

IQuando sua empresa cha- 
ma um fabricante ou um r&- 
presentante de microcom- 
putadores, ela esta arriscada a 
comprar o que eles tern para ven- 
der. Nao o que voce precisa. 

Muitas acabam colocando um 
equipamento na sua empresa , sem 
ao menos se importar com o tipo ou 
tamanho do seu neg6cio. 

Com o Programa Micro Esforpo, 
voce elimina todos esses liscos, por- 
que ele identifica qual a capacida- 
de do equipamento que voce real- 
mente precisa. E se for o case, diz 
para voce que sua empresa nao pre- 
cisa de microcomputador. 
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ANTIS DE VENDIR UM MICROCXMUH/rADOft PARA SUA EM. 
PftESA, A DISMAC ESTA IHTERESSAPA EM SABER EXATAMENTE 
AQUILOQUEELAPREOSA. 

POR IS50. A MSMACQHOU UM PROGRAMAQUE ESTUDA O 
TIPO E TAMANHO DA SUA EMPRESA JDOfTTFlCA SEUS PROeiiMAS 
E FAIUM PROJETO ESPEQFICO PARA AUMENTAR SUA EFIQENQA, 
DIMINUINDO SEU CUSTO. VOCE CONSULTA A DISMAC SOBRE 
PROGRAMA MICRO ESFOR^SEM NINHUM COMPROMISSO. CA- 
SO VOCE SE DEODA PELA IMPUNTA^O DO PROJETO, A DISMAC 
POQG OFERECSITUDOOQUE VOCE VAI PREOSAR PARA ISSO< CA' 
SO CONTRARK), VOCE KAO PAGA ABSOLUTAMENTE NADA. 

UMAOPORTUNIDADE EMMH.PARA SUA EMPRESA HRAR AS 
DUVID AS E VOCE ACAB AR COM SEUS TEMORES. 




MULTIUSUARIO 

a A Dismac tern microcompu- 
tadores paxa empresas pe- 
quenas, medias ou grandes. 
E a unica que tern o sistema multiu- 
suario. Isso quer dizer que um fun- 
cionario da sua empresa nao preci- 
sa esperar outre terminar a opera- 
gao para que ele inicie, AX6 8 depar- 
tamentos da sua empresa podem ter 
informagoes diferentes ao mesmo 
tempo. 

ATEONDEEUPOSSO 
CONTARCOMOSSiSTEMAS? 

S Muitas empresas estao 
usando somente a metade 
da capacidade dos seus mi- 
crocomputaaores. Uns porque nao 
enoontram sistemas certos para re- 
solver seus problemas, Outros por- 
que nao sabem como usa-los. 

No Programa Micro Esforgo, 
quando a Dismac estuda seus pro- 
blemas, ela ja pode dizer quais os 
sistemas voce vai precisar e desen- 
volve cada um, especialmentepara 
seu case. 




QUEMMEOFEREa ASSISTINQA? 

Para a Dismac, a vida de um 
microcomputador nao aca- 

ba no memento em que voce 

compra e instala. Ela sabe que se vo- 
ce precisar de assistencia tecnica, 
cada hora que o equipamento esti- 
ver par ado, representa dinheiro 
que voce esta perdendo, 

Atra ves do Programa Micro Es- 
fopQO, a Dismac desenvolve umme^ 
canismo para atender seu caso em 
menor tempo e com maior eficien- 
cia, em qualquer ponto do Brasil, 

HOTLINE 

Para sua empresa conhecer 
10 Programa Micro Es forgo 
I sem nenhum compromisso e 
ter um projeto para soludonar seus 
problemas sem nenhum custo, e so 
ligar para (01 1) 825-3588, 825-2696 
e falar com o Sr. Akira. 
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Junior tern solucao pra tudo. 



Junior, o micro prodfgio da Iliiuttx, Mais dc i60 soft- 
warcs ja dcst'nvolvidosccatabgados. E muitosoiitros 
cm dcscnvolviniiMico. Solu^ocs iincdiatas no plaiKJa- 
mcnto. anilisc, racionaliz^t^o, aprcndiiadOtO:tntmlcsc 
apcrfl'i^oammto tk- iiicrodos c si stomas. Dois pmgra- 
mas, dcsctrvolvidoscspccificamcntc pcla Itautcc, accn- 
dem asnea?ssidadcsdiariasdccmprcsascprofis5io«ais: 
l^cdator- Protrssador dc tcxtos para Impua portu- 
gucsa. Caktcc- Platiiiha dc calcijlo clt^rronico, qut^jjcr- 
tiiitc qualqucr ripo dccilculo^ no tbrniato linha/ 
coLuna, com possibilidadc tie rcciltuloc ^^lu^Uza^ao 



iniL'diata dos dados. Junior. Micro versatile pcssoal e 
profissional, qiie atendc oom cfidcncia as mais diversas 
areas, oomo mcdidna, cngcnharia, dircito, agropcLua- 
ria, c'duca^ao, adniinistra^ao, artc^ miisica^ c ceni ap]ica- 
{^s domcsticas. Scnipre com 
a garantia dc assisEcncia da 

Itautoc. Uni nonicoimpro- ^^^^ ^^^ 

nii; u da a) ni a l- vol u^ ao da ^^^^^- ^^^ ' 

iutornidritra narionaL 
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-l'^ RELAT^RIOS; 
XXa SAIDA PARA UMA 
BOA FORMATA*. AO - 
O comando PRIM SPC (X), 
no Apple, penniie imprimir 
linhas com mais de 40 colunas, 
mas exige campos de 
comprimento flxa E sc o 
lanianho Tot variavel? Veja um 
maccie neste arrigo de Antonio 
Carlos P. Salles- 

-|/r KDITOR ASSEMBLER 
AO PARA A IJNHA 

SINCLAIR - E ficil errar em 
Assembler. O difidl e achar e 
corrigir o crro. No enianta 
com uso de um bom Editor ^ 
cste, poT exempio, descnvolvido 
por Lui;^ Imbmisi h'ilho - tudo 
fica mais simples^ pois cle 
escreve direio cm mncmonicos. 



W SPC <4J 
l8 


? 


10 






A 


A 


A 


A 


A 


A 






A 


A 


A 


A 


A 








A 


A 


A 


A 


A 


A 






A 


A 


A 


A 


A 


A 





















llnicidi 






Seta endexe<;o 
SOQ02 com d 
valor SaO 
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90 REM LD A 

100 REM LDIR 

1 1 REM EX D 

120 REM LD C 

T30 REM NOP 

140 LET A=9 5 

150 REM LD H 




'l/l SIDRA - Uma disiraijao, 
OV L'Omando N EW c 
promo. La se vai o duro 
trabalho de muita^ horas. Mas 
nao sc desespcre: ele nao 
sumiu, so csid escondida 
eo MILAGROSU, programa 
dc Rudolf Horner Jr., vai 
ajudar voce a recupera-lo. 

^A PROCRAME O 
UU BALANCO DE SUA 
EMPRtiJ.\ - Ncstci tempos 
bicudos. a i^aude das empresas 
lornou-se um assunto delicado. 
Veja como esEao o$ scus 
negocjos (e os dos scus 
concorrcntcs), com o auxflio 
destc programa de Dorlfv de 
Jesus Godanh para a linha 
TRS-80. 
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■ ^ m Sao Paulo, fiz visita a uma 
M J loja cspecializada na revenda 
m • (le micro computadores. £uma 
-M ^ loja tradicioml do setor, uma 
das primeiras a aparecer na capital 
paulista; goza de boa reputa^ao den- 
tre aqueles que tern por esporte predile- 
to o tour pelas lojas e sempre investiu 
bastante em sua inmgem. 

A loja. para meu espanto, estava bem 
vazia, embora estivessemos em intervah 
de almogo, hora sabidamente movimen- 
tada devido as visitas daqueles que tra- 
balham. A maioria das mdquims esta- 
vam paradas. enquanto o numsroso 
staff da loja concentrava-se em torno 
de um equipamento aberto nosfundosda 
loja. provavelmente ocupando-se de al- 
gum problema de assistencia tecnica. 
Fui falar com o dono. "E a crise, Alda. 
Nunca o mercado esteve tao ruim", 
queixou-se ele. 

Julho de 1981. A Computique inau- 
gurava no Brasil o esquema de comer- 
cializa^do de varejo de equipamentos 
que ate entdo eram verdadeiras caixas- 
pretas para os ndo-iniciados. O Rio pos- 
suia a primeira loja de microcomputa- 
dores do pais. Lembro-me bem pois 
participei ativamente do fato: o clima 
era de euforia. 



Decorridos quase tres anoS. o merca- 
do das lojas sofre realmente sua maior 
crise. Muitas lojas fecharam. Muita gen- 
te que previa ganliar dinheiro desistiu. 

Neste contexto, um fenomeno que 
tern criado dificuidades para muitos lo- 
jistas e a verdadeira "queima depregos" 
que vem ocorrendo no mercado das 
grandes capitais. Hoje, um comprador 
potencial de um equipamento tipo 
Apple, se tiver dots ou tres dias para 
gastar percorrendo os lugares certos, 
economizard no minima um milhdo de 
cruzeiros. Soubemos de casos de nego- 
cios realizados recentemente no Rio de 
Janeiro com base em ORTN do mes de 
fevereiro ! 

O mercado de perifericos mmbem 
anda descontrolado, depois que um dos 
maiores fabricantes de impressoras do 
mercado vendeu uma partida grande 
dessas mdquinas a um grupo de fiincio- 
ndrios de uma empresa estatal e este pes- 
soal passou a revender os equipamentos 
por um prego mats baixo. 
m "0 problema e que a oferta e maior 
do que a procum. e a loja tern que ge- 
rar negocios e ndo somente esperar o 
cliente que entra. E nesta epoca de cri- 
se, quando entra um cliente. o pessoal 
ndo quer perder. dai vai dando os des- 



contos". disse-me um lojista amigo. 

Embora a guerra de pregos possa pa- 
recer, a primeira vista, favordvelao com- 
prador, a baixa taxa de rentabilidade com 
a qual funcionam os pontos de venda 
atualmente ndo dardo condigoes para 
um bom atendimento ao cliente no me- 
dio prazo. 

E muitos lojistas ndo negam a parce- 
la de responsabilidade dos fabricantes 
na confiisdo que se instalou: "Se o fab'i- 
cante ndo e fiel ao revendedor, este ndo 
pode ser fiel ao fabricante. Estou de- 
volvendo mercadorias. pois certos equi- 
pamentos chegam para mim mais caro 
do que no balcdo de outras lojas", dis- 
se-me um dono de loja. 

Ciiimes h parte, existe outro ponlo 
bastante delicado que os lojistas tem 
apontado: o prego do software e a "fal- 
ta de cultura do nosso usudrio, que se 
recusa a pagar por software". Esta dis- 
cussdo. no entanto. fica para uma fu- 
turn oportunidade. e convidamos os in- 
teressados a participarem do debate. 
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A avanpada tecnologia do raio laser para 
converter os dados de saida de computador 
em imagens prontas para uso. 

As Processadoras/lmpressoras de Microimagens Kodak KOMSTAR sdo verdadeiros 
perifericos de computador, que oferecem notdveis melhoramentos nas opera<;:6es de 
soi'da de dados, ao mesmo tempo em que reduzem os custos operacionais. 




Permitem aindo a obtengdo de titulos em vdrios tamanhos, microfichas com fndice 
em diversos formatos, Tudo com rapidez e fDerfeigdo, sempre. Mas alem dessas, existem 
outras vontogens que voc6 precise conhecer. 

Nao espere mais tempo. Envie hoje mesmo o cupom abalxo, solicitando o Guta 
Kodak para as Processadoras/lmpressoras de Soida de Dodos de Computador. 
Voc6 vera, em detalhos, tudo o que as Processadoras/lmpressoras Kodak KOMSTAR 
podem oferecer. 

Ao receber seu Guia, voc^ estard abrindo as portas de sua empresa para a mais 
avangoda tecnobgio existente no mundo da informdtica, Uma tecnologia que tem a 
garantia de uma marca que voc6 ccxihece e confia: Kodak. 



CUPOM DE RESERVA GRATIS 

Sim. quero receber gratultamente o Gula Kodak para as Prcx:»ssaclorcK/lmpfessoras de Sofdo de 
Dados de Computador. 



Nome. 



Cargo. 



Empresa, 



Enderego 

CEP aCADE ESTADO 

(A Kodak atenderd os pedldos por ordem de chegodo e m medido dos seus estoques). 



k^ 
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DepGflamento de Sistemas Microgrdficos 

KODAK BRASIL£IRA COMERCIO E INDUSTRIA LTDA. 

[?ua George Eastman, 2]3 • 05690 • Tel.: (Oil) 542-0111 • Sdo Paulo ■ 



SP 




O lortndo duta mAi, que r»c«ber* urns 
ntinatura da urn wiods MICRO SISTEMAS, 
6 Honatdo Lobo Burgatti, da Sao Paulo. 
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Tenho um micro Comodore VIC-20 com 
vdrios complementos e diversas fitas de jo- 
gos, mas nSo consigo fazer com que a cor 
aparega na TV, uma Sanyo de 20 polegadas. 
Gostaria de saber se 6 nacessdrio fazer algu- 
ma modifica^o ou cdocar algum compo- 
nente na TV para obter a cor desejada, pois 
todos OS jogos aparecem em preto e branco. 
Gutemberg C. Penteado 
Campinas-SP 

Infslizmente, Gutamberg, ndt nSo temoi 
aceno a ests squipamanto a per itao nio po- 
damof ajudi-lo. Mas, quam uba, algum lei- 
tor poder& Ihe ajudar? Vamos torcer. Aten- 
(Jo leitores que tem axpariAncia com o 
VIC-20: flscravam para a RadapSo da MI- 
CRO SISTEMAS, Se^ao Cartas: Av. Prasi- 
dante Wilson, ^&5 - Sales 1210/1216, Rio 
da Janeiro-RJ, CEP 20030 (NOVO ENDE- 
RECO). 
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Venho por meio desta agradecer a carta 
enviada por MS em resposta ao meu pedido 
de esclarecimento sobre o "Monitor BASIC" 
(publicado em MS n9 25, p^. 14), a qual 
permitiu-me usufruir do monitor. De fato, 
6 necessdrio usar o comando NEW apds al- 
terar o valor da RWflTOP. Foi uma faiha 
nSo ter consuttado o manual a respeito, 
faIha que ocorreu porque, em geral, os ma- 
nuals nSo estimulam a perfeita compreen- 
sSo, devido a maneira como sSo escritos. 

No primeiro manual do TK82-C (que de- 
pots foi relanpado com melhor apresenta- 
(So), a possibilidade de reservar espa^o no 
topo da membria nSo 6 sequer mencionada. 
Permitam-me que discorde da carta de MS 
no que diz respeito d ctareza do manual. 
caprtulo 26-1 do rrunual afirma (na fnte- 
gra):... "NEW, por outro lado, nffo faz um 
teste de memdria cheia, mas apenas veriftca 
atd antes do endere^o RTF. Assim, se vocfi 
fizer um POKE do endere?o de byte exis- 
tente para RTF, para NEW toda memdria 
daquele byte em diante estd fora do sistema 
BAStC e 6 deixado de lado..." 

Qnde estS a clareza da absolute e indis- 
pensdvel necessidade do NEW? O que estS 
claro 6 que esses bytes protegidos nS'o serlTo 
afetados por um NEW posterior. Mais adian- 
te, o manual ensina a preserver 20 bytes, or- 
denando que se fa^: 
POKE 16388,236 
POKE 16389,71 

e ent^o digitar NEW. Neste caio, o u>o do 
NEW (ali^, a carta de MS chama NEW de 
comando e o manual do equipamento cha- 
ma de instru^o. Qual o correto?) ap63 os 
POKES poderia indicar algunu coiss mas, 
tem duvida, um fato tSo importante nSo de- 
veria ler relegado a um exempio perdido no 
fim do caprtulo, Neste ponto. fica bem claro 
que a ajuda de MS foi de grande valor. 
De novo agrade^o pelo puxSo de orelhos 
que a carta de MS me deu com rela^So ao 



artigo "Linhas de programa: usou, elimi- 
nou!" (publicado em MS r\9 27, p^. 561, 
pois fui muito apressado em dizer que havia 
erro, pois de fato o programa fundona. Pe- 
Qo transmitir aoautor (Gdrson Bianco Alon- 
sol meus parab^ns pela valiosa colabora- 
?So (...). 

Ricardo Mendonga 
Recife-PE 

Qua bom que conseguimos ta ajudar, 
Ricardo. Melhor linda 6 que vocd nos dau 
um bom retorno sobre os saus problamas. 
Agradacemos sua gantilaza. Agora, com rala- 
?So i sua pergunta se o NEW A um comando 
ou uma instrufio, ale s6 serfi uma inrtru^ilo 
se pertancar a uma linha de programa. Fora 
da listagem do programa, o NEW h um co- 
mando. 
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Tendo digitado e gravado o programa 
"Aventuras em Serra Pelada" (editado em 
MS n9 28, pSg. 14), verifiquei en-o na a<;So 
numero 84 da p^gina 15, pois nSoseconse- 
gue acender a dinamite mesmo portando-se 

isqueiro. 

Assim, na raferida apffo, onde se 14: 
"/_E-0,HW$?F". Ieia-S8;"/-E-N,HW$7F". 
Gostaria que a corre^^o fosse apresentada 
aos demais leitores dessa conceituada pu- 
blica^ao. 

Carlos Henrique Crivellaro 
SSo Paulo-SP 

VocA asti correto, Carlos. Asradecamos 
muito por sua atan^io. 

r OBSERVAgOES DO LEITOR J) 

Gostaria de parabenizd-los pelo excepcio- 
nal service que v6m prestando d comunidade 
brasileira adepta do micro e equipamentos 
de maior porte (...) ^ l6gico que todas as 
manifesta^Oes do ser humano estffo sujeitas 
a falhas, pois 6 muitas vezes errando ou co- 
metendo enganos que aprendemos mais. 
Venho entfio chamar a aXenqSo para dois 
erros em programas publtcados em MS 
n9 28, nos programas "Penosa Travessia" e 
"Laser Base: o tiro do canhao": 

1 — Programa Penosa Travessia 

Quanta h parte em Assembler que trata 
de uma rotina que roda a tela para a esquer- 
da, tudo bem. erro, entretanto, encontra- 
se nas linhas 34 e 35: quando mandamos im- 
primir a galinha na avenida nffo pergunta- 
mos ao pro^ama (atrav^s de um PEEK) se 
aquele ponto estd obstrufdo ou nSo, fazen- 
do-se esta pergunta posteriormeme, ou seja, 
invertando a ordem. Minha sugestd'o ^ a se- 
guintealtera^o: 



2 LET A=22 

3 LET B=10 

31 FOR Z=l TO 300 

32 PRINT AT A,B; 

33 IF PEEK (PEEK 16396+256* 
PEEK 16399)*;>0 THEN LET A=22 

34 PRINT AT A,B;"S"; AT A,B;" " 



Assim, a linha 32 aponta a posipSo de 
impressffo da galinha no vfdeo. A seguir, a 
linha 33 pergunta ao arquivo de imagem se 
esta drea do vfdeo corTesp>onde a um espa(:o 
embranco(0)ouaumobstdculo ( < > ) 
Se for um espago, prostegue a execuQ^o nor- 
mal do programa, caso contrSrio, mandamos 
a galinha de volta h sua origem. Acredito 
tamb^m que o programa fique mais interes- 



sante se modificarmos a linha 22: 

22 IF M=0 THEN PRINT AT F, INT 

(RND*28),- " (8 espa^os inverses) " 

2 — Programa Laser Base 

Por um erro de impressSo, no enderego 
16610 foi dado o valor de DA, acarretando 
seguinte: quem 6 usudrio do jogo reparou 
que o canhSo inimigo acompanhava os mo- 
vinrwntos do jogador, mas sem atirar sobre 
este, o que provocou uma perda de atragao 
pelo jogo, sem mencionar o fato de que o 
jogo nSoparava nunca. Analisando o Assem- 
bler, nos enderegos 16610, 16611 e 16612 
tTnhamos que: 

16610 DA 1A 41 JP C, 16666 
jsto fazia com que o resto do segundo bloco 
nffo fosse efetuado e o programa entrasse em 
loop nSo retornando ao BASIC. Em lugar 
de DA, o byte certo 6 CA, que ocasiona: 
16610 CA 1A 41 JP Z, 16666 
satisfazendo, assim, a comparagSo anterior: 
16608 FED2CP 210 
Ronaldo Lobo Burgatti 
Santos -SP 

Ronaldo, agradacemos suas rntarassantas 
sugestdas a aproveitamos para Ihe fazer uma 
sugestfio: por que vocft nao desenvolve pro- 
gramas a manda para a genie? 
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GostarCamos de assrnalar o grande su- 
cesso que vem tendo a revista MICRO SIS- 
TEMAS em nossa loja, pois em apenas um 
dia todo o estoque foi vendido, obrigando- 
nos a solicitar com urgfincia unra nova re- 
messa. 

Computer — Feira de Computadorea e Siste- 
mas Ltda. 
Ferra de Santana-BA 

A revista MICRO SISTEMAS vem 
melhorando cada vez mais, numero a 
numero. Gostaria de parabeniz^-los pelos 
programas e pela qualidade da revista. Sou 
leitor regular e em todas as MS venho 
encontrarxJo um alto nfve! tdcnico em todos 
OS programas e em todas asdicas. Outrossim, 
meus sinceros agradecimentos ao diretor 
t6cnico, Renato Degiovani, pelos programas 
e pelas dicas. 
Enrique Montero 
Vigosa — MG 
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Li na revista MICRO SISTEMAS n? 26 
um anOndo do Sr. Alexandre Farias, que me 
parecia bom: ele desejava trocar informagSes 
e programas. Resotvi escrever para ele e de- 
pois de algumas corresponddncias, como 
algu^m tinha que comepar a mandar fita K-7 
pelo correio, resolvi mandar primeiro. Man- 
del a fita e uma carta. Esperei uma semana e 
mandei outra carta, e depois outras. Aconte- 
csu que acabei sem un%a fita e arranjando 
um belo e daspreiado amigo. 

Gostaria que escrevessem para ele pedin- 
do que, pelo menos, me devolvesse a fita. 
Alexandre Costa Gaeta 
Riode Janeiro-RJ 

Em primeiro lugar, quero parabeniz^-Ios 
pela revista; a melhor do gfinero, a meu ver. 
Possuo um computador pessoal CP-200 a 
admiro muito os programas e implementa- 
gOes para as versOes do Sinclair. 

H6 algum tempo, li um anOncio em um 
jornal de clatsificadot sobre a venda de soft- 
ware por correio a pregos convidativos. 



Tendo me tnteressado, enviei ao anunciante, 
Sr. Eduardo Marpal (Caixa Postal 78, CEP 
18100, Sorocaba-SP), uma carta solicitando 
um catdlogo dos programas disponTveis, no 
que fui prontamente atandido. Fiz o pedido 
de um programa atrav^s de uma carta, a qual 
anexei um cheque nominal cruzado a favor 
do Sr. Margal. Apds mais de um m6s, remeti 
ao Sr. Margal nova carta pedindo esclareci- 
mentos sobre a fita, mas nSo obtive resposta. 
Gostaria de uma informagSo: no endere- 
90 anteriormente dtado funciona alguma 
loja ligada d I nf ormdtica do vosso saber? E m 
ca;o negativo, gostaria de alertar aos outros 
leitores para que fiquem atsntos contra nrtais 
um desses novos piratas. 
Carlos Alberto Episcopo 
SSo Paulo-SP 

N6< nio podamos afirmar, em nanhum 
deltas casos. se houve ou n£o uso de mk ii. 
O qua podemot fazer, e fazemos, A abriras- 
papo para qua os usu^ios fapam as suasde- 
nijrKias, que, aos poucoi, vSo formando um 
maior nfvel de consciAncia na grande maio- 
ria dos usufirios. Taivez af possamos, juntos, 
fazer uma sale^do antra aquetes qua reipai- 
tam ou nio o mercado consumidor de mi- 
cros e software. 
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Na qualidade de possuidor de um TK 85 
(16 K), gostaria que me esclarecessem al- 
guns pontos com relapSo aos perif^ricos 
constantes do folheto de especificagSes t^c- 
nicas do TK 85: 

1? — NSo existe em lugar nenhum, isto i, 
em nenhuma loja de micros aqui em Belo 
Horizonte, a impressora que a Microdigital 
diz exjstir d disposigSo do TK 85; 
29 - NSo se encontra tamb^m o gerador de 
jom para o TK 85; 

39 - Como o prego do TK 85 de 16 K 6 
bem abaixo do prego do TK 85 com 48 K, 
resolvi comprar o de 16 K pensando em 
mais tarde expandT-lo para 48 e atd mesmo 
64 K, unu vez que esta possibilidade consta 
do folheto de especificapOes do equipamen- 
to. 

Gostaria de merecar, o mais rdpldo pos- 
srvel, uma resposta clara e objetiva sobre es- 
tes fatos que enumerei, uma vez que consi- 
dero de extrema utilidade a disponibilidade 
destts perif6ricos para a plena exploragSo 
dos recursos que o TK 65 me parece possuir. 
Sergio EduanJo de O. Lourengo 
Belo Horizonte-MG 

Como sampra, S^io, rametemos wa 
carta para a Microdigital. Eis a resposta: 
"Em atenpjo k carta qua nos foi enviada 
pela conceituada revista MICRO SISTEMAS. 
informamos que apraciamos muito suas ob- 
sarvapdes lobre os perif6ricos do microcom- 
putador TK-85, e pela presente re^ionde- 
mos ^ suas dOvtdai: 

1 - A impressora, que sua carta se rafera, 
foi comarcializada pela Microdigital no inf- 
cio de 1983, e por problemas de compo- 
rtentes (os quais aram am sua maioria im- 
portados) paramos completamenta sua pro- 
dugJo. Outrossim, informamos que breve- 
mente iremos fabricar uma interfaca com ca- 
bo para qualquer impressora paralela (M6- 
nica, Emflia...). 

2 — gerador da som estarji disponfvel a 
partir de junho. 

3 — A expansio da mamdria para 48 K do 
TK-85 se encontra disponfvel, com o pre?o 
da Cr$ 274.850,00. Caso asta perifArico nao 
esteja serKlo comercializado am sua cidada, 
favor antrar em contato com nosso Depar- 



tamento Comercial: A. Angelica, 2318/ 
13? e 149 andar, CEP 01223, Sao Paulo- 
SP." 

Ricardo Tondow^i 
Dept. de Relagdas PQblicas da Microdigital 
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Sou proprietSrio de uma calculadora 
HP-41CV. sArie 2232S41461, adquirida nos 
E.U.A. Tendo apresentado defeito, level S 
filial da HP no Rio de Janeiro, dentro do 
prazo de garantia, para consertd-la. Foi-me 
negado conserto dentro dos moldes do 
contrato de garantia, com a alegagSo de que 
a mSquina com esta s^rie s6 tem garantia 
nos E.U.A., e que eu teria que enviar a md- 
quina para \&\ 

Inconformado, escrevi para a matriz da 
HP no Brasil [em SSo Paulo), que, em res- 
posta, afirmou ser efetivamente da respon- 
sabilldade da nnatriz rrHjndial da Hewlett- 
Packard a garantia da mdqulna, mas que es- 
tavam estudando uma forma de revisSo dos 
procedimentos da norma de ^rantia para 
englobar casos como o meu. 

(...) Acho um absurdo que a HP queira 
que envie minha calculadora para os E.U.A., 
quando aqui temos uma filial da empresa 
norte-americana. Segundo os prospectos e 
manuais da HP, a garantia dos produtos i 
em qualquer p>3rte do mundo, e somente 
quando num determinado paTs r\So existe 
urr%a filial da empresa 6 que torna-se neces- 
sSrio enviar para o local de origem para 
eventuais consertos. bom nome conqurs- 
tado no mundo inteiro pela Hewlett-Packard 
A garantia de qualidade extrema. A filosofia 
da empresa nos EEUU 6 servir aos seus uiuA- 
rios. Por que aqui no Brasil a empresa nSo 
mantAm o mesmo padrfo de atendimento? 
MSrio Augusto T. Russo 
Riode Janeiro-RJ 

Como sampra, mandamos sua carta para 
a Hewlett-Packard. AT vai a resposta que re- 
cabamos, MArio: 

"Informamos que, efetroamente, a Hew- 
lett-Packard do Brasil ofarecia garantia ex- 
clutivamenta a produtos brasilairos ou 
acompanhados de Nota Fiscal da Venda de 
Ravendedor Autorizado no Brasil. Esta si- 
tuagfo alterou-se em fevereiro cia 1984 e, 
dasde entio, estamos podendo atandar am 
garantia produtos importados adquirtdos hi 
menos de um ano. 

Estamof ao intairo diapor do Sr. Mirto 
para os servipos nacaasirios." 
Rubens Stephan Junior 
Geranta da Auittfencia TAcnica da HP 
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Gostaria que publicassem junto com os 
programas os respect rvos fluxogramas, pois 
quem nSo tem o micro para o qual foi de- 
senvolvldo determinado programa poderS, 
ap68 fazer as modificagdes necessSrias, ro- 
dar o programa em outro equipamento. 
Fernando Pires de Almeida 
Trfts Rios-RJ 

Primeiramente. gostaria de cumprimentS- 
los pelo trabalho que vem sendo executado 
atrav^s de MICRO SISTEMAS. Quando hS 
um trabalho sArio, a gente aprende a confiar 
nas informapoes contidas na revista, e esta 
passa a ser um instrumento a mais em nossa 
vida prof issional. 

Como todos, por^m, gostaria de fazer as 
minhas sugestoes: 



— Acrescentar ao pequeno currfculo, que 
acompanha cada artigo assinado, um endere- 
go (e taivez um lelefone, nSo se esquecendo 
do respectivo c6digo de DDD) do autor, pa- 
ra onde se possa escrever (ou telefonar) dire- 
tamente e tirar duvidas que possam ter sur- 
gido da leitura de algum artigo. 

— A inclusao de mais artigos tdcnicos, tanto 
de hardware quanto de software. 

Jorge S. Lucas 

Diretor t^cnico da Proma - Sistemas Anal6- 

gicos e Digitals - MG 

(...) Gostaria de fazer algumas considera- 
gOes e sugestOes: 

3) seria bastante interessante se vocds publi- 
cassem uma esp^cie de guia do programador, 
com dicas prdticas de transformagSo de um 
estilo de BASIC para outro. Por exempto, 
um programa em BASIC Applesoft para o 
BASIC do TRS-80 etc, Este guia deveria ser, 
na medida do possfvel, destac^el, para fa- 
cilitar o seu uso. Repare-ae que esta publi- 
cagSo iria melhorar o padrSb da revista, urns 
vez que os programas poderiam ser proces- 
sados em todos os estilos de BASIC (Apple, 
Sindaire TRS-80); 

b) por que vocis nSo traduzem artigos de re- 
vistas estrangeiras e crram uma coluna espe- 
cializada?; 

c) achei bastante interessante os monitores 
BASIC e Assembler (publicados, respectiva- 
mente, em MS 25 e 23). Acho incri'vel a es- 
cassez de programas aplicatrvos "s^rios", e 
estes devem vir sampre em MS, pois estt ti- 
po de programa compensa sua publicagSo. 

Estas sSo as minhas cri'ticas e sugestdes. 
Espero sinceramente que as mesmasaumen- 
tem cada vez mais o padrSo da revista. 
Sandro Josd Probst 
RiodoSul-SC 

Na MICRO SISTEMAS nO 27, encontrei 
um artigo sobre "Arte e tunica na tela do 
computador", de Renato Degiovani. Gostei 
e pediria para nao 56 desenharem as figuras, 
mas tamb6m publicarem programas sobre OS 
desenhos, principalmente para micros da li- 
nha Sinclair. 
David Gomez 
Belo Horizonte — MG 

Gostaria de fazer a seguinte sugestao: 
que tal a publicaoSo de programas aplicati- 
vos para TK? N6s, usu^rioss^rios desses equi- 
pamentos, ']A estamos cheios de jogos e go»- 
tarTamos de programas mais uteit. 
Edison Bueno da Silva 
JundiaC- SP 

Gostaria de colocar como sugestao a 
verxla de uma capa dura para que os felizes 
colecionadores de MICRO SISTEMAS pu- 
dessem guardar seus exemplares; e tamb^m 
sugerir uma tabela comparativa entre os 
comandos em BASIC e Assembler (por 
exempio: LO A, 50 seria, em BASIC, LET 
A = 50). 
Michel Lewinger 
Sao Paulo-SP 

Deixo registrada a minha sugestSo: um 
brave curso sobre Cdlculo Num^rico ligado 
&s atividades de programagSo em computa- 
dores de pequeno porte e/ou pessoais, pos- 
sibilitando assim um maior desenvofvimento 
de programas relacionados com Matem^tica 
e, consequentements, com Engenharia. 
GilbertoA. Rodrigues 
Santos-SP 



Envia suas sugest5as para MICRO 
SISTEMAS. Elas tario anotadai am noi 
pauta a procuraramoi, na madida do 
potsfvel, viabilizA-las. 
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Para os computadores da linha Apple, uma explicagao de como bem formatar 
relatdhos de sa/'da em BASIC, usando o comando SPC (X) 



Relator ios: a saida 
para uma boa formatagao 



Antonio Carlos Palmeiras Salles 



Este artigo visa apresentar algu- 
mas regrinhas de formata9So 
de saida em relatdrios, para 
computadores da linlia Apple. 
Como todos sabem, os micros tipo 
Apple n3o permitem o use do comando 
PRINT TAB (X) na mesma linha quan- 
do X for maior do que 40. caso em que 
a impressora salta uma linha. dificul- 
tando a formatagSo de relat6rios im- 
pressos. 

Para resolver este problema, existe 
um comando que define quantos espa- 
90s em branco devem ser deixados entre 
o campo a ser impresso e campo ini- 
presso anteriormente. Este comando e 
PRINT SPC (X), indicando que. entre a 
liltima posigSo do campo impresso an- 
teriormente e a primeira posifSo do 
campo a ser impresso no comando, de- 
vem existir X espagos em branco. 
Ate ai nSo existe segredo. claro; nSo 
se os campos a serem impressos lives- 
sem um tamanho fixo. Mas, como to- 
dos sabem, em relat6rios de saida ge- 
ralmente sSo impressos nomes, mimeros, 
quantias monetarias etc.. e estes campos 
quase nunca tem tamanho fixo. Como a 
Hnha de programa que define a impres- 
sSo de hnhas no relat6rio costuma ser 
unica dentro de um loop, se voce fixar 
valor de X dentro do SPC (X), as li- 
nhas sairao todas desamimadas. Ejusta- 
mcnte esta a fun^So deste artigo: mos- 
trar como resolver este tipo de proble- 
ma. 

Vamos entao considerar o relatdrio 
que estd na figura I. Como se pode 
observar, todos os campos tem tamanho 



variivel. As linhas verticais pontilhadas 
definem o tamanho mdximo de cada 
campo. 

Consideremos as seguintes condi^Oes: 
IP ) impressao do campo 1 ; 
2P ) impressSo do campo 2 em diante. 
Observa^ao: os campos podem ser ali- 
nhados a esquerda e/ou S direita. 

No primeiro caso, onde nffo se tem 
campos anteriores impressos. as possi- 
bilidades sao apenas estas: 

a) alinhados ^ esquerda (nomes, ti'tulos 

etc.); 

b) alinhados ^ direita (niimeros, vaJores 
monetarios etc.). 

No segundo caso, as possibilidades 
aumentam, pois deve ser considerado 
campo anterior, ou seja: 

a) anterior alinhado ^ esquerda - atual 
alinhados esquerda; 

b) anterior alinhado ^ direita - atual 
alinhado ^ esquerda; 



c) anterior alinhado ^ esquerda - atual 
alinhado S direita; 

d) anterior alinhado d direita - atual 
alinhado ^ direita. 

Vamos estudar cada caso em particu- 
lar, mas antes vamos abrir um paren- 
tesis para alguns esclarecimentos que 
irS^o ajudar a entender tudo que vem a 
seguir. 

No caso de um campo numerico j^ 
estar formatado para vaior monetSrio, 
ou seja, na forma XXX.XXX,XX, lo- 
gicamente deve estar numa variavel al- 
fanumerica (do tipo XS). Caso contr^- 
rio, para que se possa conseguir o ta- 
manho deste valor (o que vai ser de im- 
portancia primordial no decorrer do ar- 
tigo). usa-se LEN{STRS(vari^vel)). Va- 
mos, no entanto, considerar que o cam- 
po numdrico (a ser alinhado S direita) 
j^ est^ formatado numa variavel alfa- 
num^rica. 
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Figure 3 



Figiira 1 



OS CAMPOS DE IMPRESSAO 

Apenas por simples conven^So, deno- 
minaremos os campos a serem alinhados 
a esquerda (nomes. ti'tulos etc.) de AS 
e BS, e OS campos a serem alinhados a 
direita (niimeros, quantias monet^ias 
etc.) de XS e YS. Vamos, ent^o, a ca- 
da caso em particular. 

1) ImpressSo do primeiro campo 

1.1. — Alinhado a esquerda - este e o 
caso mais simples. Basta definir quantos 
espa^os devem ser deixados a partir da 
coluna 1 (veja um exemplo na figura 2). 

1 .2. —Alinhado a direita - neste caso. 
campo deve estar alinhado ^ direita e, 
para tal. toma-se valor da ultima posi- 
^ao 3 direita a ser impressa (posi^So de 
alinhamento). exemplo est^ na fig. 3. 

2) Impressao do segundo campo em 
diante 

Antes de passarmos aos quatro casos 
aqui inseridos, vamos definir seguinte: 

• DISTl - distancia entre a primeira 
posi^So do campo anterior e a primeira 
posigSo do campo a ser impresso ; 

• DIST2 - distancia entre a ultima po- 
si^ao do campo anterior e a primeira po- 
si^So do campo a ser impresso; 

• DIST3 — distancia entre a primeira 
posipSo do campo anterior e a ultima 
posigao do cam po a se r impresso ; 

• DIST4 — distancia entre a ultima po- 
siijao do campo anterior e a ultima po- 
51930 do campo a ser impresso. 

Vamos agora aos casos: 

2.1 — Anterior alinhado a esquerda - 
atual alinhado a esquerda - neste caso, 
temos AS (campo anterior) alinhado k 
esquerda e BS (campo a ser impresso) 
alinhado tambem k esquerda. No exem- 
plo da figura 4, vamos considerar. con- 
forme as defmi95es que acabamos de 
ver. DISTl =20. 

2.2 - Anterior alinhado a direita ~ 
atual alinhado a esquerda - este tam- 
bem 6 simples: como o campo anterior 
(XS) esti alinhado k direita e o campo a 
ser impresso (BS) esta alinhado k es- 
querda. basta definir quantos espagos 



devem separ5-los. diretamente. Na figura 
5 temos um exemplo, onde DIST2=4. 

2.3 — Anterior alinlmdo a esquerda - 
atual alinhado a direita - temos AS ali- 
nhado a esquerda e YS alinhado a di- 
reita. Este e um pouco mais complexo: 
DIST3= 31.0 exemplo esta na figura 6. 

2.4 — Anterior alinhado a direita - 
atual alinhado a direita - para termi- 



nar, temos dois campos alinhados a 
direita: XS e YS. Veja o exemplo na fi- 
gura 7. onde DIST4= 24. 

Com isto, fleam cobertas todas as 
possibilidades de saida de relat6rios. 
Pode parecer um pouco complicado, 
mas com algum treino torna-se bem 
mais simples e. com certeza. e a maneira 
mais 16gica. 

Para finalizar, devemos lembrar ao 
leitor que. embora os exemplos mostra- 
dos aqui abranjam apenas dois campos, 
a tecnica e v^ida para quantos campos 
forem necessarios imprimir por liriJia, 
bastando para isto que. entre um SPC 
(X) e outro. seja feita uma separa^ao 
por ; (ponto e vi'rgula) pois, caso contrS- 
rio, a impressora salta uma linha. 



Antdnio Carlos Palmeiras Salles. atualmente 
cursando CiSncia da Computa^ao na Univer- 
sidade Federal da Paraiba, Campina Grande, e 
responsivel pela implantagao e funcionamen- 
to de um micro CPD em uma empress comer- 
cial nesta cidade, 4 sdcio da Data Shopping 
S/C Ltda., empresa especializada em assesso- 
ria, desenvolvimento de software e treina- 
mento em computa^o. 
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Figura 4 



PRINT SPC (DIST2);BS 
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Figura S 



PRINT SPC (DIST3-LEN(AS)-LEN[Y$) );YS- 
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Depot's do a vem a b,e assim por diante... Mas parece que seu micro da linha 
Sinclair se atrapaiha urn pouco com isso. Ajude-o a achar a sequencia certa 



A seqiiencia f ora de ordem 



Maura Antunes 



Este e urn jogo aparentemente facil. 
mas que podera deix^-lo com ipulga 
airds da orelha tentando achar o me- 
Ihor caminho para por na sequencia 
ceita a desordem que o seu micro da linha 
Sinclaii fara com letras ou numeros. 

O programa gera um quadio semelhante ao 
que esta na figura 1 . O numero de linhas e co- 
lunas e definido por voce (hi um mi'nimo e 
um maximo para cada um), assim como os ca- 
racteres: letxas ou niimeros. Sua tarefa sera, 
portanto. arrumai a bagun^a. ou seja, colocai 



as pedras (caracteres) na ordem certa. movi- 
mentando-as com as teclas 5. 6. 7 e 8. O as- 
pecto final do quadro devera ficar. no nosso 
cxemplo. igual ao da figura 2. 



Observances importantes: a movimenta^ao 
devera ser feita da letra ou nJmero paia o ca- 
rater D , e nunca vice-versa. O numero ma- 
ximo de jogadas vai variar de acordo com o 
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Mauro Antunes 6 Engenheiro Eletricista, for- 
mado em 82 pela UFSM, e usu^ria de um 

















Seqiiencia 



1 REM SEQUENCIA - MAURO A.B. 
5 SLOW 

10 LET CJ=0 

15 LET G=0 

20 LET H=0 

30 PRINT AT COj-QUANTAS LINH 
AS ?(2<L<9)" 

35 INPUT H 

40 PRINT ,"HNHAS = ";M 

45 PRINT ,,"QUANTAS COLUNAS ?( 
2<C<I5r 

50 INPUT N 

55 PRINT , "COLUNAS = ";N 

60 PRINT ,, "NUMERO DE CARACTER 
ES =";M*N-1 ■ 

65 PRINT ,,"VOCE DEFINE OS CAR 
ACTERES.", , ,"0 PRIMEIRO DEVE SER 
"."INTRODUZIDO 2 VEZES." 

70 PRINT , ."EXEMPLG:", ,"SE POR 
EM A,B,.C INTRODUZA A,A,B,C" 

75 PRINT ,,"0S MOVIMENTOS SAO 
OBTIDOS","PELAS TECLAS 5,6,7 E 8 

60 DIM AS(M,NJ 

90 FOR P=H TO 1 STEP -1 
100 FOR Q=N TO I STEP -1 
105 INPUT AS(P,Q) 

1 I NEXT Q 
120 NEXT P 

1 30 LET I=M 

140 LET J=N 

150 LET AS( I,J)='B" 

155 FAST 

160 LET A=1I-2*INT {M/2) 

170 LET B=A-2 

180 LET L=9+2*(M-INT (M/2)) 

190 LET K=L+2 

200 LET Es17-2*INT (N/2) 

2 10 LET F=E-2 



220 
230 

240 
250 
260 
270 
280 
290 
300 
360 
370 
360 
390 
400 
410 
420 
430 
440 
450 
470 
480 
490 

J-t-1 
500 
505 
510 
515 
520 
530 

70 
540 

RADO' 
550 
560 



LET C=15+2*(N-INT (N/2)) 

LET D=C+2 

CLS 

FOR P=F TO D 

PRINT AT B,P;'W;AT K.P;**" 

NEXT P 

FOR P=B TO K 

PRINT AT P,F;W;AT P.D;"*" 

NEXT P 

FOR .P=A TO L STEP 2 

LET G=G+1 

FOR Q=E TO C STEP 2 

LET H=H+1 

PRINT AT P,Q;A$(G,H) 

NEXT Q 

LET H=0 

NEXT P 

LET G=0 

SLOW 

IF INKEYS="" THEN GOTO 470 

LET BS=INKEYS 

PRINT AT 21 ,0;"JOGADAS =":C 



THEN GOTO 6 50 
THEN GOTO 7 50 
THEN GOTO 850 
THEN GOTO 530 



IP B$ = ''5' 

IF BS="6' 

IF B5="7' 

IP BS="8' 

GOTO 950 

IF J>1 AND J<=N THEN GOTO 5 

PRINT AT 0,0; "VOCE JOGOU ER 



PAUSE 60 
PRINT AT 0,0;" 



565 GOTO 470 

570 PRINT AT L,C;AS(1,J-1) 
580 PRINT AT L,C-2;'a" 
590 LET AS( I,J)=AS( I,J-1 ) 
600 LET AS( I,J-1 )='W 
610 LET J=J-t 
620 LET C=C-2 
630 LET CJ=CJ+1 



640 

650 



670 

680 

690 

700 

710 

720 

730 

740 

750 



770 

780 

790 

800 

810 

820 

830 

840 

850 



870 

880 

890 

900 

910 

920 

930 

940 

950 

/N)" 

960 

970 



980 

990 

1000 

1010 

1020 

1030 

1111 



GOTO 470 

IF J<1 OR J>=N THEN -GOTO 54 

PRINT AT L,C;A$(I,J+1 ) 

PRINT AT L,C+2;W 

LET AS( I,J)=AS(I,J+1 ) 

LET A5(I,J+1 )=*■" 

LET J==J+1 

LET C=C+2 

LET CJ=CJ+1 

GOTO 4 70 

IF I<=I OR I>M THEN GOTO 54 

PRINT AT L,C;AS(I-1,J) 

PRINT AT L-2,C;'W 

LET AS(I,J)=A$( I-1,J) 

LET AS(I-1,J)='W 

LET 1=1-1 

LET L=L-2 

LET CJ=CJ+1 

GOTO 470 

IF I<1 OB I>=M THEN GOTO 54 

PRINT AT L,C:AS(I+1 ,J) 

PRINT AT L+2,C;'W 

LET AS( I,J)=AS(I+1 ,J) 

LET ASII+1,J) = 'W 

LET 1=1+1 

LET L=L-t-2 

LET CJfCJ+1 

GOTO 470 

PRINT AT 0,0;"OUTRA VEZ ?(S 

IF INKEY$="" THEN GOTO 960 

IF INKEyS="N" THEN GOTO 102 

CLS 

GOTO 5 

SAVE "SEQUENCIA" 

RUN 

CLS 

PRINT AT 10, )2;"FIM" 

STOP 




I APPLEKfT 65000 I Placa de circuito impresso. I APPLEKI T65010I Conjunto de soquetes, concctores, resistores e ca- 
pacitores. [APPLEKIT 65020 Conjunto de semicondutores, TTL's, LSI e memorias (As memorias EPROM sao forneci- 
das com grava<;ao). APPLEKIT_65.iO^O. Conjunto de teclado alfanumerico com 52 teclas e componentes, circuito im- 
presso. L^PLEKIT 65200 Fonte de aUmentaQSo tipo chaveado. rAPP LEK I T 6 5 300 i Caixa de microcomputador em 
poHuretano. i APPLEKIT 65400 1 Manual de montagem e teste de micro. 



APPLEKIT e 100% compativel com os cart6es perifericos da MICROCRAFT. 



* Apple i morca rcgtttrada de Apple Inc. 
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Para quern nao tern muita "intimidade" com os mnemory/cos, ou para os que querem 
uma garantia a mais de sucesso, este Editor 4 urn verdadeiro achado ! 



Editor Assembler 
para a linha Sinclair 



Quando se escreve programas em 
linguagem de maquina a possi- 
bilidade de erro e muito grande, 
o que leva a maioria dos usua- 
rios a perdera p-ciencia e aban- 
donar seus programas no meio do desen- 
volvimento. No entanto. dispondo de 
um Editor Assembler, o usuario podera 
eliminar boa parte das dificuldades ine- 
rentes a esse tipo de programagao, ja 
que o programa passa a ser escrito dire- 
tamente em mnemonicos, facilitando 
sua elabora^ao, escrita e corre^ao. 

objetivo deste artigo e, portanto, 
apresentar um Editor para computado- 
res da linha Sinclair com 16 kb de me- 
moria. no qual foi aproveitado o proprio 
sistema BASIC como base de opera^ao. 
Os mnemonicos sao escritos dentro de 
linhas REM e a montagem e feita pelo 
Editor Assembler na primeira linha do 
BASIC, a qual sera criada pelo Editor 
durante o processo de montagem. Fo- 
ram incluidas, alem de todas as instru- 
^oes do Z80, duas instru96es especiais 
de carregamento (LD). uma que permi- 
le escrever na memoria em hexadecimal 



Luiz fmbroisi Filho 



(para colocar dados, per exemplo) e ou- 
tra para escrever codigos de caracteres 
na memoria. 

ESCREVENDO EDITOR 

Depois de escrito, o Editor estara lo- 
calizado apos o topo da memoria 
(RAMTOP) redimensionado para a posi- 
9ao 29.440. Apesar disso, ele podera 
ser gravado em fita, pois antes da grava- 
9ao ele e transferido para uma string do 
BASIC. Quando o programa 6 passado 
de volta para o computador. ele € auto- 
maticamente recolocado ap6s o RTF. 

Editor gasta aproximadamente 3 
kb de memoria, e para escreve-lo o pro- 
cedimento a ser adotado e o seguinte: 

1 - execute o comando RAND USR 0; 

2 - execute o comando POKE 16389, 
115; 

3 - com o auxilio ^o Monitor Assembler, 
publicado na MICRO SISTEMAS nume- 
ro 23, ou dalistagem 1 Ao MICRO BUG, 
publicado na MICRO SISTEMAS niime- 
ro 32, introduza o Editor Assembler Ois- 
tagem 1); 



4 - escreva o programa em BASIC (lis- 
tagem 2); 

Atengao: e importante que o progra- 
ma BASIC seja digitado exatamente 
conforme a listagem 2. Para verificar se 
algum erro foi cometido, de o coman- 
do direto {fora do programa): 

PRINT PEEK 16396 

A resposta devera ser 32; caso contrario, 
revise o programa e corrija-o. 

5 - ponha o gravador para gravar; 

6 - de RUN. 

Aparecera na tela, ap6s a gravagao e 
sempre que o programa for copiado no 
computador, o titulo EDITOR ASSEM- 
BLER. De BREAK e logo apos o co- 
mando NEW coloque o computador em 
FAST e o Editor estara pronto para ser 
usado. £ recomendada a utilizagao do 
modo FAST durante o processo de mon- 
tagem, ]i que Editor reorganiza algu- 
mas varidveis de controle do sistema 
BASIC, incluida a de controle de tela. 

Para copiar o programa do gravador, 
de o comando LOAD "EDITOR"; de- 
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PROCURE QUEM 
REALMENTE EP^ENDE. 

MICROMAQ 

R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-6088 • Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publica^oes 
Especializadas, Cursos e Manuten^ao de Equipamentos. 



pois proceda de acordo com o paragrafo 
anterior. 



SISTEMA OPERACIONAL 
DO EDITOR 

desenvolvimento de um programa 
em Assembler € feito em duas fases: pri- 
meiro escreve-se os mnemonicos nas li- 
nhas REM (do sistema BASIC) e depois 
monta-se o programa. 

Na primeira fase escreva os mnemoni- 
cos em linhas REM consecutivas, a par- 
tir da linha 100. Quando na montagem, 
todas e somente as linhas REM consecu- 
tivas a partir da 100 serao montadas. 
Por exemplo: 

90 REM LD A,B 
100 REM LDIR 
1 10 REM EX DE,HL 
120 REM LD C,09 
130 REM NOP 
140 LET A=95 
150 REM LD HL,3922 

Neste programa, as linhas 90, 140 e 150 
nJo serao montadas. Observa^ao: se nao 
existir a linha 100, ou entao se esta nao 
for REM, nada sera montado. 

Pode-se escrever mais de um mnemo- 
nico na mesma Unha REM, mas para tal 
e preciso separa-los por uma barra incli- 
nada (sinal de divisao no BASIC). Nao 
ha limite para o niimero de mnemoni- 
cos por linha. No programa a seguir, por 
exemplo, todos os mnemonicos serao 
montados: 

100 REM SUB C/LD A,C/CPIR 
113 REM IN A, (08) /RET 

Para escrever os mnemonicos siga as 
seguintes regras : 
! - Instrugoes normais: 

1.1 — use apenas os mnemonicos do 
Z80 e as duas instrufoes especiais de 
carregamento (LD); 

1 .2 - separe o codigo de opera^ao e o (s) 
Of>erando (s) por um espa^o; por exem- 
plo: 

100 REM LD H,L 

Observa^ao: o espa^o que aparece entre 
o REM e o codigo de opera^ao e proprio 
do REM, ou seja, ele nSo foi (e nao deve 
ser) digitado. 

1 .3 - nSo deixe espa90S entre mnemoni- 
cos e as barras de separa^ao; por exem- 
plo: 



100 REM CP H/NOP/DAA/XOR B 

1.4-0 ultimo mnemonico de uma li- 
nha REM nao deve ser sucedido pela 
barra de separa^ao; 

1.5 - quando nas opera96es aritm^ticas 
ou 16gicas primeiro operando for o 
acumulador. este nao devera ser escrito; 
a opera9ao a seguir, por exemplo, e a 
mesma que ADD A,C: 

100 REM ADD C 

1 .6 - as instru96es condicionais deverao 
apresentar uma vi'rgula separando a con- 
di9ao e o dado que vem a seguir; por 
exemplo: 

100 REM JP NZ,400C 

1 .7 — todos OS numeros deverao ser es- 
critos em hexadecimal. 

2 - Imtru0es especiais 

2.1 - LD • • - esta instru^ao coloca na 
memdria todos os dados contidos entre 
OS asteriscos (cada par de caracteres ^ 
um dado aarmazenar na memoria, em 
hexadecimal). Por exemplo: 

100 REM LD *80B1C94E12* 

esta linha, quando montada, coloca os 
conteiidos 80, Bl. C9, 4E e 12 (todos 
em hexadecimal) diretamente na memo- 
ria. 

2.2 — LD " " — esta instru9ao coloca 
na memoria os codigos de cada um dos 
caracteres contidos entre as aspas. Ela 
funciona de modo a escrever mensagens, 
ti'tulos, caracteres na memoria, princi- 
palmente quando se quer imprimi-los 
na tela. Por exemplo: 

100 REM LD "VANIA" 

Na memoria, serSo armazenados os se- 
guintes conteudos em hexadecimal: 
. 38 (codigo de V) 
. 26 (codigo de A) 
. 33 (codigo de N) 
. 2E (codigo de I) 
. 26 (c6digo de A) 

Alen9ao: a digita9ao dos mnemoni- 
cos deve respeitar a padromza9ao nor- 
ma] de sintaxe das instru9oes. Na figura 
1, no entanto, temos dois casos, onde 
esta padroniza9£io nSo € respeitada. 



MONTAGEM 

Uma vez escrito o programa em As- 
sembler, a mont^em e feita com o co- 



DJNZ,45 deve ser escrito DJNZ 45 

EX AF,A'F' deve ser escrito EX AF,AF 
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mando PRINT USR 30000. Se o pro- 
grama em Assembler estiver sem erro de 
sintaxe, nao so ele sera montado como 
aparecera no canto superior esquerdo da 
tela o numero de bytes gasto por ele. Pa- 
ra testar, tecle o programa: 

100 REM LD HL, (400C)/INC HL 
1 10 REM LD (HL) , 3D/RET 

Agora de PRINT USR 30000. Apa- 
recera o numero 7 na tela, que e o total 
de bytes gasto pelo programa j^ sntao 
montado. Para visuaUza-lo, de o coman- 
do LIST. 

Observe que agora existem duas li- 
nhas no BASIC com a mesma numera- 
930 (0). A primeira conte'm o programa 
montado e a segunda e usada como pro- 
te9ao (nunca apague esta linha). Para ro- 
dar o programa, utilize o comando 
RAND USR 16514 (ou LET A = USR 
16514, etc.). programa imprimira a 
letra X na tela. 

Vamos entender como isto aconteceu 
analisando o programa: 

. LD HL, (400C): coloca em HL o ende- 
re90 da tela (tirado do manual). Neste 
endere?©, o conteudo e 118 (decimal), 
visualmente fora da tela. 

. INC HL: incrementa o par HL. que 
agora contem o endere90 da primeira 
posi9ao visual da tela (coordenadas 0,0 
para o PRINT AT). 

. LD (HL), 3D: coloca no endere90 da 
primeira posi9ao da tela o conteudo 
3D (cddigo da letra X). 

. RET: retorna o comando para o sistema 
BASIC (observe que a rotina em Unga- 
gem de maquina funciona como se fosse 
uma sub-rotina do BASIC). Todo pro- 
grama em Assembler deve termtnar com 
RET quando tiver que retornar ao 
BASIC; se isto nao acontecer. o opera- 
dor perdera o controle (via teclado) - 
tal nS^o ocorrera somente se no progra- 
ma em Assembler existir rotina de leitu- 
ra de teclado. 

Resumindo, entao, o procedimento 
para utUiza9ao do Editor Assembler (su- 
pondo ja gravado em fita) i: 

1 — carregar o programa com LOAD 
"EDITOR"; 

2 - dar BREAK, NEW c por fim FAST; 

3 - escrever seu programa em Assem- 
ber em linhas REM consecutivas a partir 
da linha 100; 

4 - montar o programa com o comando 
PRINT USR 30000; feito isso ele estara 
montado na memdria a partir do endere- 
90 16514. 



MENSAGEM DE ERRO 

Quando um dos mnemonicos apresen- ^ 
ta erro em sua estrutura Editor nao IM 
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EDITOR ASSEMBLER PARA A LfNHA SINCLAIR 











Listagetn 1 






1 DIM A$(3140) 




2 RAND USR 29716 


3 SAVE " EDITOR" 


4 POKE 16389,115 


5 RAND USR 017761 


6 SLOW 


7 PRINT AT 10,5;"* EDITOR ASSEMBLER *" 


8 GOTO 8 



executa a montagem e mostra no ceniro 
da tela a mensagem • ERRO • . Para lo- 
caliz^-lo, liste o programa e procure o 
mnemonico que tenha um de seus carac- 
teresinvertido. Oenoestanestemnemo- 
riico (note que o erro nao est^ necessa- 
riamente no cardter invertido). For 
exemplo: 

100 REM DAA/LD A,G 



Quando for dada a ordem de mon- 
tagem (PRINT USR 30000), o Editor 
mostrard na tela a mensagem de erro 
(nao existe o mnemonico LD A,G nas 
instrufSes do Z80). Listando o progra- 
ma, veremos: 

100 REM DAA/LD H ,G 

A letra A esta invertida, indicando que 
o mnemonico LD A,G esta errado. 



O Editor tamb^m acusa erro quando 
as regras de escrita dos mnemonicos, an- 
teriormente descritas. nao forem respei- 
tadas. Para correfSo do erro, apague o 
mnemonico errado e escreva o certo (uti- 
lizando o comando EDIT do BASIC). 

Este Editor Assembler foi original- 
mente concebido com fmalidades didd- 
ticas. mas foi desenvolvido e aperfei9oa- 
do, e em sua forma atual pode ser utili- 
zado na montagem de programas com- 
plexes. Com um pouco de prdtica, sua 
utiliza9ao torna-se simples, o que faci- 
lita projeto, o teste e a corre9ao de 
programas em Assembler. 



Engenheiro OperBcional Eletrdnico, formado 
pelo Centra Federal de Educafao Tecnoldgica 
Ce/so Suckow da Fonseca. RJ, Luiz Imbroisi 
Filho da Fonseca 6 atualmente professor da 
Circuitos Digitals e de Eletrdnica nesta mesma 
instltuifio. Paralelamente, desenvolve hard- 
ware e programas em linguagem de mMguina 
e em BASIC para computadores da linha Sin- 
clair. 
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MICRO SISTEMAS, SEI — Sistemas Eletronicos de Informacoes, divisao 
da Abril Cultural, e Telesp trazem para voce novos programas do 



TELESOFTWARE 



o servigo Videotexto 

pzra usuirios de 

microcomputadores 




/Micro 



PROGRAMAS JA DISPONIVEIS 








Programa 


Alitor 


Edi9io N9 


An^lise de Balango 


Dorley de Jesus Godarth 
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Aprendendo Frapoes 


Heber Jorge da Silva 
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Biorritmo 


Francisco Luiz Farias Bezerra 
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C^lculo de Areas 


Heber Jorge da Silva 
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C^lculo de Volumes 


Heber Jorge da Silva 
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Cat^logo de Disquetes 


Lawrence Falconer King 
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Cictotron, o Jogo das Barreiras 


Hendy Takeshi Yabiku 
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Compilador Forth 


Antonio Costa 
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Copsys 


Daniel Augusto Martins 
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Domind com Som 


Everton Pereira 
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Mini Editor de Textos 


(van Camiloda Cruz 
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PIL — Controle da Fertiiidade 


Armando Oscar Cavanha Filho 
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Professor J. C. 


Jdneson Carneiro de Azevedo 
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Reglstro Pessoal de Cheques 


Marcelo Renato Rodrigues 
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Soietrando 


Heber Jorge da Silva 
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Tutor Matemeitico 


Paulo Sergio Gonpalves 


30 


Todos OS messs, este servlqo seri enriquecido com novos programa* 
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MICRO SISTEMAS, Junho/84 
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OAPPYAPRESENTA 
MONKXAUa E EMIIA. 

As tres aguardam de sistemas. Centro: R. Sete de 

voce na Clappy. E precisando de as- Setembro^ 88^ Loja Q 

Elas sao fabricadas sistencia tecnica abuse (galeria).Tels.: (021) 



pela Elebra e distribui- 
das pela Clappy, que 
Monica, a 



alias, tern a 
Alice e a Emilia pelo 
prepo mais convidativo. 
Venha ate a Clappy 
e use e abuse de nossos um representante. 



tambem da gente: 
ninguem e tao rapido e 
tao competente neste 
assunto como a Clappy. 
Venha a nossa loja 
ou solicite a visita de 



consultores tecnicos. 

Eles fazem questao 
de mostrar tudo que a 
Clappy tern em micros, 
pent ericos, suprimen- 
Tos, softwares, cursos 
de programapao, im- 
planta^o e instalaoao 



Prepos 

especiais 

para reven- 

dedores. 



Clappy 

Centre: Av. Rio 
Branco, 12 - Loja e 
Sobreloia.Tel.: 021) 
253-3395. 



222-5517/222-5721. 

Copacabana: 
R. Pompeu Loureiro, 99. 
Tels.: (021) 236-7175 / 
257-4398 (Aberta 
diariamente das 10 as 
20 horas e aos sabados 
das 9 as 14 horas). Es- 
tacionamento proprio. 

Entregamos em 
todo o Brasil pelo reem- 
bolso Varig. 

Assistencia Tecni- 
ca: Tels.: 234-9929 / 
234-1015. 
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MICRO SISTEMAS, Junho/84 



Como elaborar menus computacionais? Temos aqui um programs em BASIC que 
vai /he mostrar a/gumas t^cnicas que devem ser utilizadas 



Programagao 
em forma de menu 



Hernan Campero Lopez 



Apalavra menu, usada como sinonimo de carddpio, 
vem ocupando uni lugar bastante soUcitado dentro da 
area de processaniento de dados. De fate, esta palavra 
nao conie^ou a ser usada por acaso. Com um signifi- 
cado bastante similar ao cardapio, o menu computacional nada 
mais e do que uma Usta de opgoes as quais podemos executar a 
partir de um determinado est^gio do programa. 

E claro que existem outras fornias de elaborar um progra- 
ma. mas o menu, como veremos mais adiante, € uma t^cnica 
computacional bastante simples. 

Basicamente. temo? dois tipos de usu^rios de computador; 
experiente, que conhece a linguagem e ^ capaz de contornar 
algumas situa^oes de "pane", e o usuario que nSoentende na- 
da, aquele que s6 se interessa por ligar o computador, colocar 
algumas informa^oes e come9ar a receber as respostas aos seus 
problemas. Sao estes ultimos que realmente temdemonstrado 
o maior uiteresse, nos mercadoseuropeu e aniericano, a respei- 
10 de programas elaborados na forma de menu. O motivo e 
6bvio. 

Quando estamos diante da tela de vi'deo. com a umdade de 
disco funcionando, e nos vemos bombardeados por perguntas 
as quais nao sabemos responder ao certo, ai vem as duvidas: 
"Se respondo afirmativamente a uma pergunta, ser^ que depois 
eu posso desistir?" No entanto, se o programa for do tipo que 
conlem menu, no lugar do bombardeio de perguntas aparece- 
ra na tela de video uma lista com as op95es de que dispomos. 

Vejamos um exemplo concreto para facilitar o entendimen- 
to. Vamos supor uma loja que venda vei'culos de todos os tipos 
favioes. caminhoes, carros, motos.etc). e admitamosque para 
cada tipo de veiculo o vendedor deva preenchcr os dados num 
certo formato. Uma altemativa neste programa seria a pergun- 
ta: 

"PERTENCE AOS VEICULOS AEREOS ? {S/N)" 

A ela, vendedor deveria responder sim (S) ou nao (N), 
Logo depois, viria outra pergunta com outro grupo de vei'cu- 
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los, e assim at6 ele responder afirmativamente. quando entfo o 
programa passaria a fazer as perguntas correspondentes ao gru- 
po de vefculos escolhido. 

Uma outra altemativa seria aquela em que o programa pe- 
disse; ENTRE O CODIGO DO GRUPO (U^..). usuario 
responderia com uma tabela onde previamente estivessem rela- 
cionados os grupos com os seus respectivos mimeros. Por 
exemplo: 

1 . Av i oes 

2 . Cami nhoes 

3 . Ca rros 
etc 

Ora. por que nffo juntar os dois casos em um? Ten'amos, 
ent^o, um menu como este: 

Menu de Ve J cu 1 os 

1 . A V i oes 
2. Caminhoes 
3 . Garros 
etc 

<< ENTRE NUMERO ESCOLHIDO>> 



Neste exemplo ilustrativo. as op^oes de escolha sao pou- 
cas (insuficienles, lalvez, para mostrar a real necessidade do 
menu), mas imaginem se fossem mil itens. um supermercado 
por exemplo - seria essencial uma boa visualiza^ao do agrupa- 
mento dos produtos. Atraves do menu, o usuario nao s6 tem 
uma ampla vis3o das altemativas. como tambem ganha tempo, 
uma vez que nao precisara responder a uma s^rie de perguntas, 
geralmente iriiiteis, dependendo do que ele pretenda fazer. 

MICRO SISTEM AS, Junho/84 



Existe ainda uma outra vantagem: podemos executar sub- 
divisOes em um submenu. No caso do vendedor de vei'culos. 
ti'nhamos, na primeiradivisffo."avi6es. caminhoes. carros. etc.", 
mas poden'amos querer que os caminhoes se classificassem, 
por sua vez, em: "Scania. Mercedes, Ford. Chevrolet, etc.". 
Seria muito maisfacilse. aoescolhermos a op^ao "caminhoes", 
aparecesse na tela um outro menu (este chamado de submenu), 
no qual ten'amos: 

MENU DE CAMINHOES 



1 . S can i a 

2. Mercedes 

3. Ford 

k . Chevro 1 et 

etc 

«ENrRE NUMERO ESCOLHIDO» 



DETALHES SOBRE PROGRAMA 

Nosso programa mostra como elaborar um menu, constan- 
do de oito opijoes. as quais iremos analisar mais adiante. Dare- 
mos ainda uma pequena explica^So sobre os comandos para 
que ele possa ser adaptado a qualquer computador (foielabo- 
rado com o BASIC do CP/M e por isso existem algumas dife- 
ren^as). 

objetivo do programa e dar ao usuario a op^ao de adifao 
e subtra^ao de matrizes de m por n elementos, assim como fa- 
cilitar a edi^ao na parte relacionada aos dados por ele executa- 
dos. 



No quadro de Comentdrios anexo, detalhamos a programa- 
fao linha por linha (ou grupo delas quando forem semelhantes). 
A expressao (LI4-2) indica intervalos de linhas, onde LI e a 
linha onde come^a o intervalo a ser explicado e L2 onde ele 
termina (ambas as linhas inclusive). Ao final de cada observa- 
fao correspondente a uma linha que ja foi explicada em ou- 
tra linha anterior, devemos nos refenr com; nnmi: 'xxxx, 
onde nnnn e o numero da linha a ser explicada e xxxx a Unha 
onde foi previamente mencionada esta instru95o. 

Como podemos observar no programa, a partir da instru^io 
1280 teremos uma serie de repeti^Ses de comandos. Portanto, 
nos limitaremos a comentar as diferen9as de algumas passagens 
que julgamos de maior inleresse. 

Na instrugffo 2060, temos uma mensagem ESTOU IMPRl- 
MINDO...., a qual ficara na tela enquanto o modulo de op9ao 
dois 6 executado. Isto e litil quando temos a impressora em ou- 
tro local e nao temos condi^Ses de verificar seu funcionamen- 
to. ou ent^o quando a impressora nao esta on line com o com- 
putador. Esta mensagem tambem ajuda aos menosexperientes, 
aqueles que ficam desesperados quando a tela fica Umpa e o 
computador aparentemente sem funcionar. £ o caso das outras 
mensagens semelliantes que aparecem no vi'deo (ESTOU CAL- 
CULANDO... etc). 

A partir desta instru9So, vemos imia seqiiencia de comandos 
LPRINT, que se difcrenciam do PRINT por serem executados 
na impressora no lugar do vi'deo: L PRINT = Line printer 
PRINT. 

No modulo tres. temos a oportunidade de corrigir alguns 
dados que estejam errados. por falha na digita9ao ou na leitu- 
ra da fita ou disco (caso existam). 

E sempre litil poder voltar ao menu de opgoes. Neste m6- 
dulo tres temos esta chance, colocando no lugar do valor da 
variavel a ser comgida uma letra M. Al^m disso, pergunta se 
queremos efetuar outra correg^o. Se a resposta for negativa. o „ 
sistema tambem volta ao menu de opgoes. S 
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Se voce nao adquiriu MICRO SISTEM AS na data carta, nos Ihe damos uma segunda chance! 



' Seu pedtdo pode ser feito 

por carta, indicando 

quais os nijmeros 

atrasados que voc€ quer. 



• Acrescente a este um cheque 

cruzado, nominal a ATI 

Editora Ltda., no valor 

correspondente ao seu 

pedido. 



• E nao se esque^a de incluir 

o seu endere^o para 

que nos possamos 

fazer a remessa. 



Aqui estao os nossos enderecos: 



Av. Presidente Wilson, 165- grupo 1210- Centre - Rio de Janeiro 
- RJ - CEP 20030 - Tels.: (021 ) 262-5259. 262-6437 e 262-6306. 
Rua Oliveira Dias, 153 - Jardim Paulista - Sao Paulo 
SP - CEP 01433 - Tels.: (Oil) 853-7758 e 881-5668. 



PROGRAMApAO EM FORMA DE MENU 



A(1 ,1) = ^5.00 B(l ,1) 

A(1 .2) = 987.00 B(l .2) 

A(l ,3) =-6,5^3.00 B(l ,3) 

A(2,l) = 8,97^.00 B(2,1) 

A(2,2) = 121 .00 B(2,2) 

A(2,3) = ii32.00 B(2,3) 

A(3,l) = 65^.00 B(3, 1) 

A(3.2) = 765.00 B(3.2) 

A(3,3) = ^.^itit.OO B{3.3) 



= 6^45 
= 6it 



76 



45 

87 

8 

66 

500 

9 



00 
00 
00 
00 
00 
00 
00 
00 
.00 



_A_ 


_B_ 




A(l ,1) = ^5.00 


B(l,l) = 


76.00 


A(l,2) = 987.00 


B(l ,2) = 


.00 


A(l,3) = -6,5^3.00 


B(l .3) = 


45.00 


A(2,1) = 8,97^.00 


B(2,l) = 


87.00 


A(2,2) = 121 .00 


3(2,2) = 


8.00 


A{2,3) = 432.00 


B(2,3) = 


66 .00 


aC3,1) = 654.00 


B(3,l) = 


46.00 


A(3.2) = 765.00 


B(3.2) = 64 


kkk .00 


A{3,3) = l.,/.(»i4.00 


B(3,3) = 


9.00 



Figure I - Elemenios das matrizes Ae h fl) 

ni6diilo de opqSo quatro nos leva ao calculo da mathz 
adigSo C =A+B, e o m6dulo de op9ffo cinco nos leva ao cal- 
culo da matriz diferen9a C = A— B (ver figuras 1 , 2, 3 e 4). 

Poderi'amos ainda ter uma unica opc^o que englobasse os 
mddulos quatro e cinco, denominada CALCULOS. Ao ser es- 
colhida. levaria a um submenu com as seguintes opfOes: 



C=A+B 

C=A-B 

C=A*B 

C=A/B 

DET A (de term! nan te de A) 

DET B (determi nan te de B) 



1 . 
2. 
3. 
k. 

5. 
6. 
etc 

^Centre o numero esoolhido» 

No modulo seis, temos a impressffo da matriz resultante. 
Vemos na linha 6100 a utiUza^ao da instru^So LPRINT 
USING "########'.' Esta instru^fo nos da uma formatafao 
de ojto mteiros (separados de tres em tres por uma vi'rgula, is- 
to e, mil, miihSo e bilhao) e dois decimais seguidos de quatro 
espa^s em branco. 



Figura 2 - Elementos das matrizes \eB(2} 

No m6du]o sete, temos \xvc\ ajuda-memoria de rapida utili- 
za?5o, que nos permite ver como se deve responder a aJgumas 
pei^untas formuladas pelo computador. 

E, por ultimo, temos o m6dulo de op9ao oito. Dele consta 
uma mensagem de seguran^a para evitar a sai'da acidental do 
programa, o que resultaria na perda de todos os dados nele 
existentes. Isto pode ser verificado nas instru96es 8090 e 81 10. 
nas quais vemos que, para qualquer resposta diferente de S 
a pergunta da linha 8090, teiemos um imediato letorno ao 
menu de op^oes. 



RODANDO O PROGRAMA 

Executando o programa com dados quaisquer (de acordo 
com as figuras 1 , 2, 3 e 4), vamos diecar a resposta e o proce- 
dimento necessario. Depois de rodado, escolhemos a op^ao 
um, e logo apareceii: 

"AS DIMENSOES de uma matriz SSO: M LINHAS X N COtUNAS", 
"POR FAVOR ENTRE M ,N7" 



Comentdrios 



• (10,100) - Comentarios de 
autoria e classiflca^ao do pro- 
grama. 

o (110,130) - Comentarios do 
ini'cio do modulo de elabora^ao 
do menu. 

• 135 - APO$ e uma varia- 
vel alfanume'rica de ajuda para u 
operador. com uma dimensao de 
46 indices. Obscrva^ao: cada 
uma das 46 variaveis alfanume'- 
ricas (indexadas) pode ter ate 
255 elementos. 

• 140-0 comando HOME 
limpa video e coloca o cursor 
no canto superior csquerdo. 

o (150,160) - liscrevemos c 
sublinhamos o ti'tulo MENU DE 
OPgOES. O comando TAB(34) 
nos indica que havera uma tabu- 
la^ao de 34 espa^os antes dc co- 
me^ a escrever. 

• 170 - Deixamos duas linhas 
em branco. Observaijao: os " : " 
(dois pontos) indicam uma jun- 
^o de duas instru^ocs, isto e, 
equivalem a um comando 
PRINT em uma linha e outro na 
linha seguintc. interligados. 



• (180,240) - Escrcvemos o 
menu em si, ou seja, a parte de 
visuahza^ao da escolha de uma 
op^ao, com uma tabuIa9ao de 
25 espat^os. 

• 250 - O comando VTAB 20 
desloca o cursor 20 linhas para 
batxo, sem apagai o que estava 
antcriormente escrito na tela, 

'a nao ser, e claro, o conteudo 
da linha na qual vamos esciever. 
Estas 20 linhas serao contadas 
a partir da linha onde se encon- 
trava o cursor na hora da execu- 
?ao do comando. Por exemplo: 
sc o cursor se encontrava na 
linha 3, passara para a linha 23.' 
A instru*;ao PRINT TAB(29) 
mandard escrever a 29 espai;os' 
(a partir da csquerda) a mensa- 
gem entrc aspas. 

• 260 - A instruijao HTAB 55 
coloca o cursor na posi^ao 55, 
isto e, a 55 espa^os contando da 
csquerda para a diicita na linha 
cm que sc cncontra, sem apagar 
o que ja existe no vi'deo. 

o 270 - Esta instru^ao nos 
permite interxomper o programa 



ate que um carater seja entrado 
pelo terminal. Este carater e al- 
fanumerico; per isso, depois da 
instruf^ao GET, temos EJ, ondc 
sera armazenado o carater entia- 
do. A vantagem desta instiu^o 
e que ela dispcnsa o uso de 
RETURN ou ENTER depois de 
entrado o carater. Sua limitajao 
e que ela so aceita um caiatei 
alfanumerico. 

• 280 - A instrU(^o I =VAL 
(E $) significa que I recebe o va- 
lor numcrico da variavel E$. Co- 
mo em E$ armazcnamos o nii- 
mero de op^ao em forma de ca- 
rater alfanumerico, agora o 
transformamos em numerico. 

• 290 -- A instrucao ON 1 GO- 
SUB I000,2000.3()00. etc... na- 
da mais e do que uma unica 
instrucao equivalente a : 

IF 1 = 1 GOSUB 1000 
IFI=2G0SUB 2000 
EF 1=3 GOSUB 3000 
etc. 

• 300 - No caso de 1=8, des- 
vie para a instru^o 8000. 



• 310 - Desvie para 140. Com 
esta instrucao, nos protegemos 
de uma entrada nao valida, ja 
que, se isto acontcce,eIe volta a 
instru^o de numero 140, que 
repete o menu. 

• (1000,1030) - Comentarios 
indicando o modulo de opcra- 
cao da op?ao numero um. 

• 1040 - • 140. 

• 1050 - •(150,160). 

• 1070- *250. 

• 1080- * (150.160). 

• (1090.1270) - Vemos que 
alguns dos comandos usados 
neste intervalo ja foram utili-' 
zados c expbcados antcriormen- 
te. Os outros sffo comuns a to- 
dos OS tipos de BASIC, 

• 1 280 - Retomamos pela ins- 
trucao 300, que nsto se cumpre, 
passando para a 310, que e um 
dcsvio para a instrucao 140 (ini'- 
cio do menu^. 

• OBS - Para as explicacoes 
do comando LPRINT USING 

veja referenda no modulo de 
op^ao seis. 



Respondemos 3, 3 RETURN e a continua9So ser^: 
l^l^l OS VALORES CORRESPONDENTES 

A(l ,1) = ^5 

A(l,2) = 

etc 

Ao enlrar'todos os valores da matriz A, o computador co- 
me9ara a perguntar os valores da matriz B, Terminada a entra- 
da, voltamos ao menu de opgoes. 

Depois, apertamos a op^ao dois. Imprimimos os dados, e o 
programa retorna de novo ao meiiu (nffo se esque9a de ver na 
figura I OS elementos das matrizes A e B). 



C(1,1) 
C(1.2) 

C(l,3) 
C(2,l) 
C(2,2) 
C(2,3) 
C(3,1) 
C(3,2) 

C(3.3) 



121.00 
987.00 
-6,^98.00 
9,061 .00 
129.00 
^498. 00 
15^.00 
209-00 
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^,453.00 



Figura 3 

- Elementos da 

matriz C=A+B 



Figura 4 


C(l,]) = 


- 31 .00 


- Elementos da 


C(l ,2) = 


987.00 


matriz C =A— B 


C(l,3) = 


-6,588.00 




C(2,l) = 


8,887-00 




C(2.2) = 


.113-00 




C(2,3) = 


366.00 




C (3, 1) = 


-6^*^,8^6.00 




C(3,2) = 


-63,679.00 




C(3,3) = 


4,^35 .00 







Agora vamos supor que queremos corrigir o dado B(3,l), 
que tem o valor original de 46, para 645500 (figura 2). Aperta- 
mos a opfSo tres e aparecera a pergunta VOCE DESEJA COR- 
RIGIR UM DADO QUE E DO TIPO: " " APS {\^)= VALOR, 
com lugar para entrar tres dados. Para interpretar o significa- 
do da pergunta, devemos usar APS= nome da matriz (A ou B) 
e OS indices do elemento a ser corrigido : I, J . 

Para corrigir B(3,l), respondemos 834- Imediatamente 
apaiecer^ no video: 

"QUAL E VALOR DE B(3,l) " 



A esta pergunta responderemos com 645500. 

A outra pergunta OUTRA CORRE^AO (S/N) que vem a 
seguir, respondemos N, pois nffo pretendemos corrigir outro 
dado. Caso contrario, responderiamos S, e as perguntas seriam 
repetidas novamente. 

Ao responder N, voltamos ao menu e, para verificar a cor- 
refao feita. escolho a altemativa dois. 

Voltando automaticamente ao menu ap6s a impressao, en- 
tro com a op^ao quatro para calcular a matriz C = A+B. Apos 
calculo, retomamos mais uma vez ao menu de opgoes (ou 
principal), de onde agora escolhemos a altemativa seis para ver 



OS resultados da matriz C (ver figura 3). Feito isso, calcula- 
mos C = A-B a partir da altemativa cinco (ver figura 4). 

A op^o sete forneceri um pequeno resumo que aparecera 
no vi'deo por partes at^ que se aperte uma tecla qualquer para 
continuar. Para ter id^ia do que aparecera no video, leia dire- 
tamente na listagem as instrufSes 7050, 7490. 

Finalmente aperto oito, leio a mensagem de seguran^a e res- 
pondo com S a pergunta DESEJA MESMO ABANDONAR 
(S/N), obtendo assim uma mensagem de FIM no (xntro da 
tela. C^aso nao queira abandonar o programa, aperto N. 

Note que este programa s6 permitir^ usai matrizes de or- 
dem maxima 10, ji que nao existe instrucao de dimensiona- 
mento capaz de liberar o uso de indices maiores. No caso de se 
desejar matrizes de ordem maior - 20, por exemplo—, esta 
instrucao deveria ser acrescentada: 

135 DIM AP0$(46) ,A(20, 20) ,6(20,20) 

a qual poderd ser de dimensOes ainda maiores. 

Uma observa9So: APOS(46) deverd ficar constante sempre 
que modificada a instrufffo 135 (veja no quadro de Comentd- 
rios a linha 1 35). 



Neman Campero Lopez ^ estudante de Engenhaha no Instituto de En- 
genharia PauHsta. f^rticipou de traba/hos nas 4reas de processadores de 
textos, otimizafao, comercial-conUbil, cienti'fica, gestao hospitalar etc. 
Conhece as linguagens BASIC, FORTRAN e Pascal e trabalha com os 
sistemas DOS e CPM, ambos disponfveis em seu Apple II com 64 Kb. 



Menu 



10 REn ((to* *••>>■*>*(■«( )>f •iiiTiixiioii* 

■ZO REM I PRaQRflMA DEnONSTRATIVO DE MENU COM » 

30 REn 1 UTILIIACAO DE OPERACOES MflTRlCIftIS « 

40 REM t > 

50 REH ■ PDRt ►eRNQN CAMPERO LOPEZ » 

60 REM ( • 

70 REM **ll**)rt«tllt*tlltl*lt»t(ll(tt>>t«>>tt 

80 REM 

90 REM 

100 REM 

HO REM .-.+*♦* T+4-++4-...++* 

120 REM » MENU DE OPCDES ♦ 

130 REM »■*■*■+++*■■*■■*■+■*■+*■*■++++ 

135 DIM APD«(46> 

140 HOME 

150 PRINT Ta8(34)"hENlJ DE OPCOES" 

l&O PRINT TAe(34)" " 

170 PRINTiPRlNT 

ENTRAR DADOS [MATRIZES) " 
VERIFICAR DADOS 1 IMPRESSORA) ' 
CORRIGIR DADOS" 
CALCULO DE C-A-B" 
CALCULO DE C-A-B- 
RESPOSTA (C) P/ IHFRESSORA" 
RESUMO EXPLICATIVO IPRBMA) ' 
ABANDONAR PROCESSO" 

E6CQLHA OM NUMERO >" 



IBO PRINT TAB(25fl. 

190 PRINT TAB(25)"2. 

200 PRINT TAB125>"3. 

210 PRINT TAB(251"4. 

220 PRINT TAB(251"5. 

225 PRINT TABl25)"A. 

230 PRINT TAB(2SJ"7. 

240 PRINT TAB135)"8. 

250 VTAB 20iPRINT TAe(29l'' 

260 HTAB 55 

270 SET E» 

2BO 1-VAL(E«1 

290 ON 1 QDSUB 1000,2000,3000,4000,5000,6000,7000 

300 IF 1-8 SOTO eoOO 

310 QOTO 140 

lOOO REM 

1010 REM *»♦*<■*-**•+*»-■»■•■•*+*■» 

1020 REM * MODULO DE QPCAO i + 

1050 REM **++♦*•■++ ♦*+•*++**♦+*- 

1040 HOME 

1050 PRINT TAB<14) "AS DIMENSOES DE UMA MATRIZ SAOl M LINHA 

S X N CDLUNA8" 
107O VTAB 10 

lOaO PRINT TABI301 "PDR FAVOR ENTRE M,N !"l 
109O INPUT «,N 
1100 FOR I " 1 TO M 
lllO FOR J - 1 TO N 
1115 HOME 

1120 PRINT TAB'24)"ENTRE OS VALORES CORRESPONDENTES" 
1170 PRINT TAB(2')>- ■■ 



» 
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PROGRAMAQAO EM FORMA DE MENU 



I |4ti VTAb SlHTflP 24 

1150 PR1NT-A<"| It "."I Jl"*""! 
ll&O INPUT All. J) 
1170 NEXT J 

II BO NEXT I 

119Q FOR I -1 TO M 

1201.1 FDR J"l TO N 

i:!OS HOME 

1210 PRINT TABt24J''eNTRE OS VflLORES COBREBPDNDENTES" 

1220 PRINT TftB124)" " 

1230 VTAB 3lHTflB 24 

1240 PRINT'B<"t Il"i"lJ|")""l 

12SO INPUT BU.J) 

1260 NEXT J 

1270 NEXT I 

I2B0 RETURN 

2000 REM 

201O REM *♦•++**.*♦++♦*♦++♦+♦*■ 

2020 REM * MODULO DE OPCAO 2 * 

2030 REM *-.♦*-.**-.«■♦ ♦***»+♦ ♦.+* 

2040 HOME 

2050 VTAB 12iHTAB 30 

2060 PRINT"ESTOU IMPRIMINDO. . . . " 

2070 LPRINT TAB»19VE6TEa SAO OB ELEMENTOS DAB MATRIZEB A E 

B" 
20a0 LPRINT TAB(19>" 

20'JO LPRIMTiLPRINT 
2100 LPRINT TAB111>"A"| 
2110 LPRINT TABC50>"B- 

2120 LPRINT TABdOi" " ( 

2130 LPRINT TAB(4'?»" " 

2140 FOR I"l TO M 
2130 FOR 3-1 TO N 
2160 LPRINT-A("iI|"."(Jl")--liLPHINT UBINO ■'•»•»••»*.. "If | A 

(I,J)| 
2170 LPRINT TA8(40)"B("iir'."iJr't""iiLPRlNT USINQ "H«««(HMI 

■ ,.««-'|BII,JI 
21S0 NEXT J 
2190 NEXT I 
2195 LPRINTiLPRINT 
Z200 RETURN 
3000 REM 

3O10 REM .+*.-..+♦.+♦»♦+*♦+♦** 
3020 REM - MODULO DE OPCAO 3 • 
5030 REM +,,♦ + »*+**.♦-+*.»*■♦++ 
3040 HOME 
30aO PRINT TAB12U"V0CE DESEJA CORRISIR UM OADO DUE E OO TI 

POi ■■ 
3070 PRINT iPRINTlHTAB 21 
30B0 PRINT"AP«(t,Jl-VflLOR" 
3090 VTAB lOiHTAB 21 

3100 PRINT"PDR FAVOR ENTRE AP*,I,J " i 
3110 INPUT AP«, I.J 
3120 HOME 

3130 PRINT TABt27)-0 DADO A BER CORRIQIDO E t" 
3140 VTAB SiHTAB 27 

3150 PRINT AP*t"C"i I(", ■•|J|"l-VALOR" 
3160 PRlNTlPRINTiPRINT 
3180 VTAB 22lHTAB 6 
3190 PRINT"PARA VOLTAR AD MENU DE OPCOESi ENTRE A LETRA <M 

> NO LUSAR DO VALOR" 
3200 VTAB 9iHTfiB 27 

3210 INPUT-VALOR DA VARIAVEL"" I V« 
3220 IF V«-"M" THEN RETURN 
3230 X-VAL(V«) 

3240 IF ftP«"'-A- THEN A(I,J)»X 
3230, IF AP«-"B" THEN B(I.J1-X 
3232 VTAB 131HTAB 27 
3254 PR1NT"0UTRA COHRECflO (B/N> " 
3253 QET-fe» 

3236 IF s«-"5" QOTO 3O00 
5260 RETURN 
4OO0 REM 

4010 REM »*+♦♦+*•++♦*♦++■•■♦+++♦ 
4020 REM * MODULO DE OPCAO 4 * 
4030 REM ♦*♦■.*♦+♦♦++*■•■+*♦♦♦♦+* 
4040 HOt^ 

4050 VTAB 121HTA8 27 

4060 P«INT"ESTDU CALCULflNDO C«A*B. . . . " 
4070 FOR I" 1 TO M 
4OB0 FOR J-1 TO N 
4090 C(I.Jl-Aa.J)*BlI.J) 
4100 NEXT J 
41 lO NEXT t 
4113 C«-"A*B" 
4120 RETURN 
SOOO REM 

SOlO REM ♦•♦•■•■♦••♦♦»+********* 
502O REM * MODULO DE OPCAO 3 * 
3030 REM ♦»♦.**■*.**♦**+.***♦** 
3040 HOME 

aOSO VTAB 12iHTAB 27 

3060 PRINT"E3TOU CALCULANDO C"A-B. . . . " 
507O FDR t"l TO M 
30B0 FOR J-I TO N 
S0<»0 C<I,J)-A(I.JI-B(I,J) 
3tOO NEXT J 
3110 NEXT I 
5113 C«-"A-B" 
3120 RETURN 
6O00 REM 

6010 REM -♦*+♦♦»♦*...,.♦*,+♦,, 
6020 REM » MODULO DE OPCAO 6 • 
ftOTO REM •+•■++•■♦*+♦■»■»».♦+»•♦*** 
61) 40 HOME 



6030 
6060 
6062 
&064 
6066 
6O70 

6oeo 

6090 
6100 
6110 
6120 
6123 
6130 
7000 
701O 
7020 
7030 
7040 
7030 
7060 
7070 
7080 
7090 
7 100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
71 BO 
7190 
7200 
7210 
7220 
72SO 
7240 
7230 
7260 
7270 
72B0 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
74B0 
7490 
7309 
7510 
7520 
7530 
7535 
7S42 
7350 
7360 
7570 
7580 
7390 
7595 
7600 
7610 
7611 
7612 
7613 
7614 
7615 
7616 
7617 
76 IB 
7619 
7B00 



VTAB I21HTAB 30 

PRINT"ESTOU IMPRIMINDO. .,.'■ 

LPRINT TAB(2I>"ESTES SAO OS ELEMENTOS DA MATRIZ C- 

LPRINT TAB(2t 1" ---■■ 

LPRINTiLPRINT 

FOR 1=1 TO M 

FDR J-1 TO N 

LPRINT TAB (301 "C<"| 1 1 '' . " l-Il" >-"> 



•lC« 



LPRINT U51N0 "atttt«l«(IHI), .«ll "tCdtJI 

NEXT J 

NEXT I 

LPRINTiLPRINT 

RETURN 

REM 

REM ♦■»■•■♦♦•■+♦♦♦* ♦♦*■♦* *+♦■•■+ 

REM • MODULO DE OPCAO 7 » 

REM *■•■♦*♦***■•■*♦♦*♦♦****■•-+ 

HOME 

APO«ai-"AO COMECAR A EXECUCAO DESTE PROSRAMA APA-" 

APO*(2)-"RECERfl NO VIDEO "MENU DE OPCOES" . E UMA" 

AP0»(31-"LISTA DE ALTERNOTl VAS. " 

APDK4)-"" 

AP0»(31»-ESC0LHEND0 ALGUM NUMERO, LME SERAO FEITAB" 

APa»(6)"-ALEUMflS PERGUNTAS AS OUAIS DEVERA RESPON-" 

AP0«<7)-"DER DA BEGUINTE MANEIRAl" 

APO«<a)-"" 

OUANDO DEVA ENTRAR 2 NUMERDS (POR EX." 
'POR FAVOR ENTRE M.N •'}, VOCE DEVERA" 
ENTRAR OS VALDRES DE 'M' E 'N* SEPA -" 
RADOB POR VIRGULA." 



AP0t<9)-"l. 

APa«(iO)"" 

APOKin-" 
AP0«(12)-- 

AP0«(13»»"' 

flP0«(14)"" 

AP0»(15)-'" 

APD»I161-"' 

AP0»(17I""2. 

APO«<lB)>" 

AP0XI9)"" 

AP0«120)-" 

AP0»(21)-" • 

AP0»(221"-" 

AP0»(23>-"" 

AP0»(24)-"3. 

AP04I25)-'- 

APa«<26)-" 

AP0»(271-" 

AP0«<2B)-"- 

APO«l29l»' - 

APa«t30)""4. 

APO»(31)-- 

AP0«(32)-" 

APO»(33l-'- 

AP0»t341-"" 

AP0«t35)-"- 

AP0»136)*'"5. 

APD»(37)-" 

APD»(3B1-" 

AP0«(391-" 

APa«<40)»" 

AP0»(4ll-~ 

AP0»142)-" 

AP0«<43)-" 

AP0»<'>41-- 

APa«(45l-" 

HOME 

FOR 1"1 TO 20 

PRINT TAB<20) APOVtl) 

NEXT I 

PR INT I PRINT 

DOSUB 7BO0 

GET S» 

HOME 

FOR I»21 TO 40 

PRINT TA8<20> APO*<I> 

NEXT I 

PRINTiPRINT 

GOSUB 7800 

BET S« 

HOME 

FDR I- 41 TO 45 

PRINT TA8(20) APO»<I) 

NEXT I 

PRINTiPRINT 

GOSUB 7800 

VTAB 201 HTAB 33lPRINT"B0M PROBRAKA ■" 

GET 5« 

RETURN 

PRINT TAB(10)"':< APERTE DUALOUEH lECLA PARA CONTINUAR' 



FINALIZAOO ISSO APERTE <RETURN>." 



OUANDO 9EJA PERQUNTADO UM UNICD VA-" 
LOR IPOR ex. -ENTRE OS VALORES CO-" 
RRESPONDENTES- E LOOO EM SEGUIDA 0" 
ELEMENTD DO MATRIZl. ESCREWA-Q E COMO'' 
8EMPRE APERTE (RETURN;-." 



OUANDO FDR PERQUNTADO UM NOME OU UM" 
DADO ALFANUMERICO. VOCE DEVERA ESCRE-" 
VE-LO NORMALMENTE E LOGO DEPOIB APER-" 
TAR <RETURN>." 



SE FEW PEDIDO PARA ENTRAR UMA BEOUEN-" 
CIA DE NOMES, NUMEROS, ETC, . , , NAO SE" 
ESOUECA DE QUE ELES DEVERAO ESTAft BE-" 
PARADOS POR VIROULAS." 



CA80 VOCE COMETA ALBUM ERRO NR ENTRA-" 
DA DE DADOS, lOUANDO TER DUE RE3PON-" 
DER COM UM NUMERO E VOCE COLOCA AL5U-" 
MA LETRA, OU ESOUECE DAS VIRQULAS PA-" 
RA BEPARAR DADOS. ETC,..), APARECERA" 
UM ERRO DE ENTRADA DE DADOS. MAS NftO" 
SE PREOCUPE, CDMPUTADOR LOGO flPOS" 
ESSE ERRO COLOCA UM SIMBOLO DE INTE-" 
RROGACAO ■^' INDICANDD QUE VOCE PODE' 
REENTRAR OS DADOS ANTES PEDID05. " 



780 1 RETURN 

8000 REM ♦++♦+++***■•■♦**■++♦++♦♦ 

8010 REM * nODULO DE OPCAO B ♦ 

a020 REM ♦4-t *♦♦♦♦■•■♦•+■*-* ■•-+*++*+ 

8030 HOME 

8040 VTAB 4 

8030 PRINT TABI101"A0 ESCDLHER E8TA OPCAO VOCE RESOLVEU SAI 

R DO PROQRAMA. CON-- 
8060 PRINT TABdOr'SEQUENTEMENTE APAQAR CONTEUDO DA M 

EMORIA IDADDB). JA" 
8070 PRINT TABIIO) "EX ISTENTES. " 
8080 VTAB 181 HTAB 23 

8090 PRINT-DESEJA MESMO ABANDONAR ? (B/N) " 
BIOO GET S« 

8110 IF S«':>"S" ODTD 140 

8120 HOMEiVTAB 12i HTAB 37. PRINT "FIM" 

B125 VTAB 24)HTAB 80 am 

8130 END ^ 







MAIS SUCESSO PARA VOCE! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM ievam ate voc€ o mais moderno ensino 

tecnico programado e desenvolvido no Pafs. 



CURSOS DEAPERKPAMENTD 



cfjRso D£ a£l1^^^scA ofGfmi 

E AUCROPROC£SSADOR£S 



Sao mais de 140 aposiilas com informacdes completas e sempre 
atualizadas Tudo sobre os mais revoluciondrio CHIPS. E voce 
recebe, alem de uma solida fcrmacio leorica, KITS elaborados 
para o seu desenvolvimento pr^tico- Garanta agora o seu futuro. 








M te 



< « t 



H k 



CEDM- 20 KIT 
de Ferramentas. 
CEDM 78 KIT 
Fonte de Alimentaglo 
5v/lA. CEDM-35KIT 
Ptaca Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM 80 

MICROCOMPUTAOOR 
Z80 ASSEMBLER. 




0UK5OEX 
PROGRAMAQMO EM BASK 



Este CURSO. espectatmente programado. oferece os 
fundamentos de Lmguagem de ProgramaQS^o que domina o universe 
dos micfocomputadores. DinSmico e abrangente, ensina desde o BASIC 
bdsico ate o BASIC mais avancado, mclumdo no^des bdsicas sobre 
Maniputacao de Arquivos. T^cnicas de Programagao. Sistemas de 
Processamento de Dados, Teleprocessamento. Muliiprogramacao e 
T^cnicas em Lmguagem de Maquina. que proporcionam um grande 
conhecimenio em loda a irea de Processamento de Dados 






KIT CEDM Z80 

BASIC Cianllfico. 
KIT CEDM Z80 
BASIC Simples. 
Gabsrito de Fluxograma 
E-4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 






CURSO DE 

ELEiRdNfCAE Audio 



M^todos nowos e inidiios de ensino garantem um aprendizado 
pratico muito meihor. Em cada nova Mo^o, apostilas ilustradas 
ensinam tudo sobre Amplificadores, Caixas Acusticas. Equalizadores, 
Tocadiscos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Capsulas 
e Fonocaptadores. Microfones, Sonorizacao. lnsirumentac5o de Medidas 
em Audio, T^cnicas de Grava^ao e tamb^m de Reparac^o em Audir 







'£ 



t« 






I s =: • < " 



CEDM-1 - KIT de Ferramentas. CEDM-Z - KIT Fonte de AtimentagSo 
+ 15-15/lA. CEDM-3 KIT Placa Experimental 
CEDM-4 ■ KIT de Componentes. CEDM-5 ■ KIT Pr^-amplilicador 
Esi6reo- CEDM-6 - KIT Amphficador Estereo 40w. 



Voce mesmo fxxJe desenvolver um ritmo prftprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado f^il. E 
para esclarecer quaiquer duvida. o CEDM coioca d sua disposi^ao uma 
equipe de professores sempre muito bem acessorada. Al^m disso, vocfl 
recebe KI1^ preparados para os seus exercfcios prSticos. 

Agil, moderno e perfeitamente adequado A nossa reaiidade. os CUR- 
SOS CEDM por correspondencia garantem condi^des ideais para o seu 
aperfei^oamento profissional. 

IGRATISi 

Voc€ tambem pode ganhar um MICROCOMPUTAOOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucosdias voc€ recebe nossos catdlogosde apresentapao- 
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^ir^h4 Avenida Sfio Paulo, 718 • Fone (0432) 23-9674. 
I^&L'I I CAIXA POSTAL 1642 CEP 86100 Londrina - PR 
CURSO DE APERFEigOAMENTO POR CORRESPONDENCIA 

Solicito o mail rdpldo possfvel Informa^Ses sem compromlsso sobre o 

CURSO de 

Nome 

Rua 

Cidade 

Bairro CEP 

MS 



Menu, formatagao de te/as, mensagens c/aras, . . . veja como tudo isso e importante quando se trata de 
facilitar a interagao usu^r/o-computador em processos de treinamento e automagao 



Facilite a intera^ao 
homem - maquina 



Existe algo mais enfadonho e 
cansativo do que utilizar um 
sistema interativo em que a 
Unguagem nao e natural?0 cursor 
pula na tela solicitando informa^oes. 
ora numa linha ja escrjta. oia abaixo 
desta;algumas informa^es sao 
solicitadas mais de uma vez; o processo 
de entiada no sistema e semprc o 
mesmo, independente do numeio de 
sessoes de uso e experiencia do usuario. 
Estes, entre outros aspectos, sao 
altamente desestimulantes para um 
usuario nao especializado, quando em 
intera9ao com sistemas automatizados. 
Sabe-se que autoniatizar fun^oes em 
escntonos leva a uma melhof 
produtividade, amplia a margem 
competitiva e fornece solu^oes a maiona 
dos problemas rotmeiros enfrentados 
per traballiadores de escrit6rios. Mas, 
para que estes quesitos sejam 
plenamente alcanijados, e necessario um 
cuidadoso planejamento, no que diz 
respcito aos aspectos ergonomicos. os 
quais preocupam-se em acomodar 
ambientes e sistemas aos indivi'duos. ao 
contr^io do que normalmente e feito 
devido ao carater de obrigatoriedade de 
utiliza^ao que e imposto ao usuirio . 
leigo. 

£ mevitdvel que uma parcela cada vez 
maior de indivi'duos venha a manipular 
terminais como ferramenta de trabalho. 
com aumenlo de suas responsabilidades. 
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Portanto, o componente humano torna- 
se ainda mais valioso e deve ser objeto 
de preocupa^ao crescente, visando a 
aperfei^oax as condi^oes que circundam 
seu trabalho. A Ergonomia, como 
campo de conhecimento que se 
pceocupa em metliorar e adequar o 
ambiente de trabalho ao mdivi'duo. vem 
de encontro a estes objetivos. 
Estabelecer a mterface homem-miquina, 
em sistemas interativos, signiHca 
projetar e desenvolver sistemas 
preocupando-se em como este sera visto 
pelo usuino e como essa tarefa ser^ 
executada. Neste enfoque, alguns 
cuidados no projeto e desenvolvimento 
do software que estabelecera a 
comunica^ao usuario-computador 
devem ser tomados. 

Na elabora^ao de um projeto de sistema, 
quanto aos seus aspectos ergonomicos, 
duas regras gerais devem ser 
consideradas: distribui^ao de 
fun Clonal id a de e consistencia. 



FUNCIONALIDADE 



Adistribui^o de funcionaltda- 
de trata da aloca^ao das 
diferentes fun^oes de um 
sitema em rela^ao as teclas de 
menus e de uma ou v^rias fun^oes. 
mnemomcose comandos. Refere-se 



tambem ao atual lay-out e projeto de 
tais menus, comandos e telas em geral. 
projeto de telas de sistemas de 
automa9ao de escntono e sua 
documenta^ao constituem o ponto 
nevralgico de uma boa aceita^ao do 
software. Isso ocorre porque o usudrio- 
alvo certamente desejaca trabalhar com 
um sistema dentro da sua Imguagem 
comuni. com o jargao de trabalho a que 
esti habituado, ou seja, o mais proximo 
da realidade em que convive. Para isso, 
e necessario dialogo em linguagem a 
mais natural possi'vcl de forma a 
propiciar uma intcra^ao conti'nua que 
leve usuario a ter a sensa^ao de estar 
conversando com a mdquina. 
Neste aspecio. algumas observa9oes sffo 
importantes, tanto no que diz respeito 
ao conteudo das telas como ao tipo de 
dado solicitado ao usuario. formato 
das telas, por exemplo. deve ser 
projetado de forma a distribuir as 
informafOes longitudinalmente no 
vi'dco, ao inves de imprens^-las no tope 
(primeu^as dez Imhas). As informa^oes 
dispostas no video devem ser agradaveis 
a leitura, o que e obtido observando- 
se maigens a esquerda e a direita. 
deixando linhas em branco, destacando 
paJavras-chave atraves de sublinhas, 
aspas ou negrito. 

Os comandos de utUiza^ao devem ter 
smtaxe simples, de preferencia 
tomando-se mnemonicos retirados da 
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sua linguagem natural, para amenizai a 
barreira de uso de terminais ou 
equipamentos de automaijao de 
escritoiios. Pois, para um usuario 
burocratico-administrativo 
nao especializado utilizai um 
equipamento com o qual nao esti 
familiahzado, tanto sob os aspectos de 
funcionamento como os de linguagens 
de comando, 6 uma tarefa bastante 
complexa e at^ mesmo amedrontadora. 
Este usuario, em geral de ni'vel me'dio, 
nSo tem como caracten'stica o 
domi'nio de h'nguas estrangeiias, as quais 
sSo comumente utilizadas na defini^ao 
de comandos e manuais. gerando, por 
isso mesmo. uma rejeigao ao software a 
ser utilizado. 

As mensagens do sistema para o usuirio 
devem ser escritas visando a atender as 
expectativas e objetivos do mesmo 
e adequadas a audiencia e situagao. 
Determinar que mformagoes devam ser 
colocadas numa mensagem, em cada 
situa^ao, significa analisar o que pensam 
as pessoas que necessitarao dela e se ha 
possibilidade de infeii-las do conlexto. 
Se isso nao for possi'vel, a mensagem 
deve prover as necessidades, exph'cita ou 
implicitamente. 

As mensagens devem ser bem escritas. 
em Imguagem coloquial, com grafia e 
pontuagao corretas. A inexistencia de 
pontua9ao e caracteres adequados a 
lingua portuguesa. como cedilha e 
til. que ainda se observa em certos 
terminals, dificulta a leitura e intera9ao 
nos sistemas de comunica^ao homem- 
maquina. Outre aspecto a salienlar & 
que a inexistencia de caracteres 
minusculos na gera^ao dos sinais para 
video nao e substituida com sucesso 
pela t^cnica de inverse video. 

Por outro lado, a solicitagao de dados 
para operagao ao usuario deve ser 
feita de maneira clara, precisa, simples 
c em pequeno numero. sem exigir que o 
usuario seja obrigado a repetu os 
mesmos dados ao longo da tarefa. 
Depois de fornecidos, estes devem 
letornai como complemento a novas 
solicitaijoes, quando necessario. 



CONSISTENCU 



Asegunda regra geral a ser 
apbcada no projeto de 
software, consistencia, diz 
respeito ao estabelecimento 
de uma aproximagao comum para fazer 
coisas. Por exemplo, usar sempre as 
mesmas teclas para as mesmas fungoes; 
colocar um sinal de reposta ou 
informagoes similares na tela, sempre na 
mesma posigao; localizar a informagao 
devolvida ao usuario, por uma agao sua. 
na proxjma linha; dai sempre o mesmo 
significado logico as convengoes, tais 
como Insert ou Control-C. 
Outro aspecto que diz respeito a 
consistencia d propiciar facUidades num 
sistema de processamento de textos o 
mais pr6ximo possivel das mesmas 
atividades feitas em situagao n^o 
automatizada. pois isto implica em 
retreinamento mi'nimo. 
Sistemas de comunicagao homem- 
m^quina devem ser implementados em 
varies ni'veis, possibilitando ao usuario 
experimentar meios de atalhar certos 
passos de execugao, levando-os direto a 
tarefa desejada. Islo diz respeito a 
t^cnica de projeto de menus ou 
equivalentes. pois usuries casuais ou 
menos experientes necessitam de maior 
numero de telas paia familiarizarem-se 
com OS sistemas. evitando referir-se 
contmuamente a manuais ou pessoal de 
suporte. 

DOCUMENTA^AO 

Face ao exposto acima, surge um 
novo problema: a 
documentagao. Na maioria dos 
sistemas, esta e a maior 
barreira de seus usuarios; e em sistemas 
interativos, onde o usuario nao e 
necessariamente da iirea de Informatica, 
problema se agiganla. E precise que os 
fabricantes dediquem maior atengao, 
tempo e dinheuo escrevendo 
documentagao compreensi'vel para o 
usuirio. 
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Uma boa documentagao deve ser uma 
contribuigao prdtica e clara des virios 
criteries que sao julgades importantes 
em vista das aplicagoes especi'ficas e do 
que o usudno pretende para o sistema. 
Para isso. e necessario que os fabricantes 
se convengam da importancia dos 
ergonomicos e que. sob este ponto de 
vista, engenheires de marketing e de 
software sao as melhores fentes de 
sistemas bem projetados. 
Concluindo, quer seja ne projeto. 
desenvolvimento e implantagao de 
sistemas ergonomicos, ou no que diz 
respeito a sua experimentagSb e 
documentagae, o usuario. especializado 
ou nao. deve ser o foco principal. Pois 
nao so OS primeiros contatos deste 
usuario com equipamentos e 
procedimentos. mas a utUizagao f^cil e 
agradavel de um software determinarao 
a sua boa aceitagao e sucesse. ^ 
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MS E FEITA 

PARA VOCE 

PARTI CI PE COM 

SUA OPINIAO 

Escreva-nos di- 
zendo qual a sua 
ireade interesse, 
conte-nos tam- 
bem as suas expe- 
riencias com seu 
micro, oque 
voce quer ver 
publicado em MS, o que voce acha 
da sua MS, enflm, diga tudo que 
tome MICRO SISTEMAS ainda 
mais feita para voce. 
E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opiniao para Redapao de 
MICRO SISTEMAS no Rio de 
Janeiro ou em Sao Paulo: Av. 
Presidenle Wilson, 165/grupo 
1210-Centro -CEP 20030- 
Rio de Janeiro - RJ; Rua Oliveira 
Dias, 1 53 - Jardim Paulista - CEP 
01433 -S5'o Paulo ■ SP. 




Se voce usa o comando NEW, o programa sumiu , certo? Mas voce pode traze-lo de vo/ta! 
Eis aqui o processo e urn programa em linguagem de maquina para ajud^-lo 




Como 
recuperar 

progmmas 

(aparentemente) 

perdidos 



Minha experiencia com microcomputadores fez com 
que eu me tornasse, com o passar dos tempos, um 
programador bastante cauteloso, desses que tern o 
costume sauddvel de, vez por outra, gravar em 
disco magnetico os estdgios parciais da elaboragSo de um 
programa. No passado, por^m, lembro-me de aigumas ocasiOes 
em que, devido a um imprevisto ou procedunento incorreto, 
eu acabava por ver eliminado da mem6ria da maquina todo um 
drduo trabalho de aigumas boras de programa9ao. 

Um desses crueis imprevistos e a ji tSo conhecida e temida 
falta de energia el^trica. Caso ocorra, se o programador nSo 
tiver uma copia ou um back-up das instrugSes contidas na 
mem6ria do computador, s6 Ihe restarao duas alternativas: o 
chore ou o suici'dio (e o pior € que, seja qual delas for tomada, 
nSo poderi trazer de volta o trabalho perdido). Nao hi como 
solucionar este problema. maximo que se pode fazer e 
prevenir-se contra ele, ou seja, na eminencia de uma queda de 
energia pela proximidade de uma tempestade. tratar de 
preparar c6pias de tudo quanto for necessdrio em algum tipo 
de memoria, em fita ou em disco, que nffo seja volitil na 
ausencia de eietricidade. 

Mas o culpado pela perda do programa tamb^m pode ser o 
proprio operador, que trai'do por uma atitude incorreta destr6i 
tudo aquilo que ele mesmo criou. Eu mesmo, j^ por diversas 
vezes, fui vi'tima de um desejo de digitar o hediondo comando 
NEW, percebendo, logo ap6s, a bobagem que havia feito. 

Digitar este comando ou outro equivalente, seja via teclado 
ou durante a execu93o de um programa, e uma coisa que 
eventualmente acontece, causando uma boa sensagS^o de 
arrependimento ao programador. que algunsprogramadores 
mais insipientes n3o sabem, pore'm, e que 6 bastante f^cil 
recupera< da mem6ria um programa que acabou de ser 
eUminado com o comando NEW. 

prop6sito deste artigo d, portanto, explicar o 
procedimento a ser adotado para que isto possa ser feito e 
proper um pequeno programa em Hnguagem de maquina para 
OS computadores da linha Apple que poderd, milagrosamente. 
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ressuscitar um programa em BASIC que tenha sido eliminado 
da mem6ria por um engano infeUz. Ainda que este tipo de 
acidente nunca tenha acontecido com voce, creio que ser^ 
interessante testar a retina que proponho, como curiosidade 
inspirada pelo seu bonito efeito. 

Nao pretendo entrar em maiores detalhes sobre o seu 
funcienamento, uma vez que. na Sidra publicada em MICRO 
SISTEMAS mimero 25 (outubro de 83, pigina 20), expUquei 
como o interpretador BASIC faz para armazenar as listagens 
dos programas em desenvolvimento. Caso voce nSo saiba como 
funciona este processo, seria bastante util uma consulta a este 
artige. 

A CHAVE ESTA NO APONTADOR 

No processo de cria^ae de cada linha de um programa que 
esteja sendo editado, o interpretador censome dois bytes para 
re^strar um apontador para o endereije da pr6xima linha, dois 
bytes para registrar o mimero da linha, um mimero vari^vel de 
bytes para registrar o conjunto de comandos da linha e. 
finalmente, um byte com o valor zero para indicar o fim da 
linha. Para determinar o final da listagem do programa, o 
interpretador marca tres bytes sucessivos com o valor zero. 
Quando o comando NEW e executado. evidentemente o 
computador nao sai apagando os bytes de sua memoria para 
eliminar o programa; ele simplesmente vai ao princi'pio da 
listagem e marca os tres primeiros bytes com o valor zero. 

Na verdade, OS bytes que codificavam e programa original 
continuam inalterados na mem6ria, mesmo que nffo sejam mais 
indicados pelos apontaderes de listagem. A conclusSe e 
simples; para recuperarmos o programa bastari restaurar estes 
apontaderes para suas posigSes originals. 

Normalmente, dependendo do conteudo dos bytes 103 e 
104, os endere^os que contem este apontador sao os 
hexadecimais S0801 e S0802. Quando se usa NEW. eles 
assumem o valor zero, e quando temos algum programa na 
mem6ria eles passam a center um apontador para a segunda 
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Seta endere(;o 
SOeo; com o 
valor S08 



Seta o regis- 
trador V com 
o valor S04 



Increments o 
registrador Y 



NAO 



Figura I 



linha do programa. Para restaur^Jo , basta encontrar o final da 
primeira linha do programa (marcada com um byte com valor 
zero) e colocar nos endere9es $0801 e S0802 um apontador 
para e byte imediatamente seguinte ao ultimo byte da primeira 
iinha. 

Estande em monitor, este 
6 um processo que pode 
ser feito manualmente; no 
en tan to, podemos 
simplificar a tarefa criando 
um outre programa que 
fa^a isso automaticamente 
para n6s. Este programa 
nao poder^ estar em 
BASIC, pois, sendo 
carregado a partir dos 
apontaderes j^ 
mencionados. ele acabar^ 
por mutilar e programa 
que estamos tentando 
ressuscitar e nSo poder^ 
recupera-le com perfei9Se. 
Teremes que usar um 
programa, 

preferencialmente, em 
linguagem de mdquina, 
que seja carregado em um 
lugar da memSria que nao 
destrua a listagem que 
queremos recuperar. 
Usaremes 39 bytes, do 
endere90 S0300 a S0324, 
que como j^ sabemos e o 
intervale sempre utilizade 
para pequenas retinas em 
linguagem de m^quiria. 
Dito isto. vamos ao nosso 
programa, o milagroso, 
cujo fluxograma est^ na 
figura 1 . Veja que ele foi 
elaborado para recuperar 
programas que estejam 



Le o valor do 
enderego defi 
nido por S80B*Y 




Seta enderego 
S80I com o va 
lor de [Ytll 



Escreve a pala 
vra PRONTO para 
encerrar 
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DATA 160.8,140.2,8.1 60 , 4 . 200 




.. 1 airi ,0,8 ., 20 1,0, 208 , 248 , 260 , 1 




40 , 1 , 3 , 1 60 , , 1 8^j ,33,3, 32 , 237 




,253,200,192,6,208,24^,96,20 




8,210, 207 , 206 , 212 , 207 


110 


FUK A -^ 768 TO 806: RLAD B: 




POKE A.B: next : END 



Figura 4 

registrados a partir do byte S0801 , nao funcionando para 
programadores que tenham o costume de alterar e valor dos 
bytes 103 e 104 que indicam o principle de programas em 
BASIC. Para estes, bastarao pequenas modifica^Oes em alguns 
lugares do programa proposto para que possam obter e mesmo 
efeito que desejamos alcanfar: fazer reviver programas mortos 
com comando NEW. 

A listagem do milagroso esti na figura 2. He ji estS 
montado e pronto para use. Para carreg^-lo, voce pode usar a 
seqiiencia de bytes registrada na figura 3, mas para o pessoal 
que ainda tem um pouco de receio em utilizar e programa 
monitor de Apple fiz um programa em BASIC, listado na 
figura 4, que, quando executado. monta na mem6ria o nosso 
programa em linguagem de rndquina. 

Carregue o programa e armazene-o em disco com o 
comando BSAVE MILAGROSO, AS300,LS26. Quando 
quiser testd-lo, crie um programa em BASIC qualquer, digite 
NEW para elimin^-lo. use BLOAD MILAGROSO para 
recuperar nosso programa em linguagem de maquina na 
mem6ria e depois use CALL 768 para executa-lo. 
Imediatamente apareceri a palavra PRONTO na tela para 
indicar que o programa em BASIC perdido ja foi 
ressuscitado. Digite LIST e verifique: milagre!!, seu programa 
esta de volta! 

Um liltimo detalhe: o programa milagroso. por ser em 
linguagem de miquina, possui um tempo de execu^ao muito 
pequeno. Por mais trabalhesa que seja sua execu9ao, ela nSo 
devera levar mais do que alguns segundos para escrever 
PRONTO, indicando que houve sucesso na recupera9ao. 
Caso, ap6s voce cham^-lo com CALL 768, o programa demore 
muito tempo para retornar. e porque ocorreu algum problema 
e, nesse caso, as chances de recupera9ao do programa perdido 
sffe bastante remotas. Cuide para que nada de errado aconte9a. 

£ 
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Reserva continua, 

afirma Dytz no 

Congresso de SC 



Nos pr6ximos 20 anos nSo 
te pode pensar em suspender a 
raservB de mercado na Infor- 
m^tica, sob pena de desenco- 
rajar, desde ji, os investimen- 
tos nacionais no setor. Per esse 
motive 6 precise garantir no 
pafs essa prote^S^o por tempo 
indeterminado e, se algum dia 
houver modifica?fies nesse 
sentido, elas deverffo ser friito 
da pr6prja evolu^So do setor e 
decididas ap6s ampio 'abate 
de todas as ^reas interessad^is. 

A declarac^o 6 do Secre- 
t^rio de InformStica, Edison 
Dytz, em entrevista coletiva 
durante o VI Congresso Regio- 
nal/Ill Feira Nacional de In- 
fomi^ica, realizados de 15 a 
20 de maio em Balnedrio Cam- 
boriu, Santa Catarina. 

Ele falou sobre o projeto 
de lei para o setor, que o go- 
vemo pretende enviar ao Con- 
gresso Nacional atnds este mds 
de junho, e cujos pontos al- 
tos sSo a criac^ de incentives 
para a ^rea, a constituiplfo da 
Comissffo Nacional de Infor- 
m^tica e a transfom^apS'o do 
Centro de Tecnologia para In- 
formStica - CTI, de Campi- 
nas, em fundapfo. 

Dytz destacou ainda que a 
cria^o de incsntivos f iscais se- 
r& um refor^o A polftica de 
reserva de mercado em vigor — 
o novo projeto defende a sua 
manutenipSo — na medida em 
que constitui atra^^Sb efetiva 
do capital brasileiro para o se- 
tor, produzindo, como resulte- 
do final, um avan^o mats rS- 
pido, tanto na indiistrra de 
hardware como na de soft- 
ware. 

O titular da SEI acredita 
que a institui^i'o da Comiss^o 
Nacional de InformStica 6 um 
outro importante pesso, pois 
trata-se de um drgSo norma- 
tive, em nfvel superior d SEI, 
formado por 6rgSo8 do gover- 
no e entidades do setor. A SEI 
caberd executar as decisfies da 
Comissffo. 

Dyiz tamb^m afirmou que 
a reserve de mercado produziu 
grande avan^o tecnol6gico rro 
Brasil e, aprcwado o novo pro- 
jeto, o progresso ser^ ainda 
mais vertiginoso. A esse respei- 
to, ele demonstrou satisfaodd 
com a representatividade da 
indOstria nacional na III Fairs 
Nacional de Infcrmdtica que, 
para ele, espeiha bem o mer- 
cado brasileiro. congresso de 
Santa Catarina tamb^m foi im- 



portante, na opmiSfo de D/tz. 
porque ajudou a despertar os 
empresdrtos para a necessidade 
de envolvimento com a (nfor- 
mitica. 

O VI Congresso Regional 
contou com a adesS'o de 600 
inscritos oriundos principal - 
mente de Santa Catarina, Pa- 
rand e Rio Grande do Sul e. 
em menor quantidade, da Ba- 
hia. Mines Gerais, ParA, Rio de 
Janeiro e SSo Paulo. A Feira, 
visitada por aproximadamenie 
40 mil pessoas, reuniu 40 fa- 
bricantes de equipamentos e 
empresas de services e soft- 
ware. Entre eles estavam a Co- 
bra, que lan^ou o microcom- 
putador Cobra 210 (veia mate- 
ria na p^ina ), a Proldgica, 
com o Sistema 700 e o CetiL. 
que mostrou o seu Sistema de 
Consulta a Cadastro atravfc de 
um micro Magnex Manager t 
interligado via teleprocessa- 
mento ao Burroughs B2900 da 
matriz em Blunrtenau. A Itau- 
tac demonstrou os seus termi- 
nals de videotex to 1-1060 e 
1-1061, em conexd'o com o Sis- 
tema ds Telesp, enquanto a 
Cincom Systems levou d Feira 
o PC Contact, soft que permi- 
te o intercdmbio de dados en- 
tre micros compatfveis com o 
IBM PC e computadores de 
grande porte. 

Ambos OS eventos foram 
promovidos pela SUCESU-SC, 
com o apoio da SUCESU-Na- 
cional e da SEI. 

(Osni Rodolfo Scftmitz) 




Acessorios para CP-300 




A Prol6gica esxA lan^ando uma linha de aces»^rios para o CP-300 
que permitiri o uso de impressora, plotter, modem, unidade de disco, 
monitor de vfdeo e joysticl<. Os novos acessorios sao: Paralela 300, in- 
terface paratela para impressora; Serial 300, interface serial para ligar 
perifdricos como modem, impressora, plotter e outros; Controlador 
300, controlador de disco flexCvel para at6 quatro unidades de 175 
kbytes cada; Joystick 300, acessdrio que possibilita mator performance 
nos jogos disponTveis; MV 300, monitor de vfdeo de f6sforo verde para 
aplicapao profissional e comercisi, e o Sistema Mestra 300, que permite 
o uso simultiineo de todos os acessdrios da Prol6gica para esse equips- 
mento. 



Brizida 
Deixa a SEI 

Em almofo de despedida promovido peta 
Sucesu SSo Paulo, o SectBt^rio de Informitica, 
Joubert de Oliveira Bririda, fez um balanpo das 
atividades desenvolvidas enquanto esteve na din- 
fSo da SEI. Brfzida ressaltou os quatro pontos de 
honra de sua gestSo: o projeto de ume lei sobre a 
Informitica no pafs; o desenvolvimento dos su- 
perminis; a questSo da Digibris e at aplica^Sas 
i6cio-econ6micas da Informitica. Em seguida, 
o ex-SecrBtdrio, que deixou o cargo para servir 
como adido militar na embaixada do Brasil em 
Londres, ressaltou ainda a importSncia do Centro 
de Tecnologia em Inform^tica, inaugurado em 
maio, em Campinas. 

Sobre o projeto de lei, que deverA ser enviado 
ao Congresso at4 junho, Brfzida afirmou que a 
questSo prirKipal d a mariutengSo da reserva de 
mercado. Quanta aos superminis ele reafirmou 



ser favor6vel d assodapSo de empresas para o de- 
senvolvimento dos equipamentos, uma vez que, 
segundo ele, duas ou tr§s empresas fabricando 
superminis jd seriam suficientes para o mercado. 
Sobre a Digibrds, o ex-Secret^rio informou que a 
parte de fomento tacnoldgico que vinha sendo 
desenvolvida por aquela empresa foi absorvida 
pelo CTI, enquanto a parts comercial esti sendo 
levada adiante pela prdpria SEI a pelo BNDES. 
Falando sobre as aplica^es sdcio-econbmi- 
cas da lnform4tica, Brfzida citou alguns pmjetos 
em andamento entre os quais o Micromed, que 
visa instalar microcomputadores am postos de 
saOde, com software para controle dessas postos. 
Os outros projetos mencionados pelo ex-Secw- 
tirio sSo o Educom, para implanta^ao de micros 
nas ascolas; o Agrocon, uso do micro na agricul- 
ture, a um projeto sobra o uso do mifro no sis- 
tema carcerkrio que ser4 lanfado em breve. Con- 
cluindo, o ex-Secretirio dlsse que sua mensa- 
gem final era de otimismo: "O empiasariado sou- 
be corresponder ao desafio e continue trabalhan- 
do rtesse sentido". 



MICRO SISTEMAS e Abril Cultural noVideotexto 



Aproveitando a ocasiS'o de seu 
enivers^rio, a Telesp lan^bu, no 
infcio do mfisde maio, uma 
stirie de novos servi^s 
vinculados ao sistema 
Videotexto, entre eles a 
possibilidade de utiiizacao do 
microcomputador como 
terminal de videotexto e e 
service TELESOFTWARE. 
A maioria dos fabricantes 
nacionais jS estSo lanpando kits 
que possibilitarao a conversao 
de seus equipamentos em 
terminals do sistema da Telesp. 
Esses kits, alguns j^disponTveis 
come o da Prol6gica. poder^o 
ser adquiridos em lojas 
especial izadas na revenda de 
micros, e stfo compostos deum 
programa para acesso ao 
Videotexto em disco ou fita 
cassete, modem e intarfaca de 
comunica<;ao RS 232C. 
Uma vez assinantes do 
Videotexto e tendo comprado o 
kit, OS usufirios de micros 
passam a ter acesso tamb^m ao 
TELESOFTWARE. Esteservii?o 
comporta um banco de 
programas, voltados para ireas 
diversas e armazanades na 
central do Videotexto, que, 
al^m de operados, podem ser 
copiados pelos usu^rios do 
sistema em seus prbprios 
disquetesou fitas. 




Um dos principais f ernecedores 
de service do sistema, a SE I — 
Si&temas Eletronicesde 
Informa^So, divisSe da Abril 
Cultural voltada para aatuacSo 
no campo da Informdtica, veio 
buscar em MICRO SISTEMAS a 
aliada para este 
empreendi mento pionetro. 
Assim,o usuArio encontrarS nas 



p^inasdaSEI/MICRO 
SISTEMAS diversos programas 
de uso pessoal, educativos. 
administrativos, utilitiriose 
jogos. todos cedidos e t^tados 
peta revista. E mensalmente 
novos programas serae 
incorporados ao Telesoftwere 
3p6spublica<:ao em MICRO 
SISTEMAS. 



Na primeira sele^So de 
material, jSencontram-se 
disponfveisno 
TELESOFTWARE diversos 
programas interessantes, de 
auteria de f reqijentes 
colaboradores de MS como e 
Professor Antonie Costa Pereira; 
Ivan Camilo Cruz; Marcelo 
Renato Rodrigues; Daniel 
Augusto MartinSrJ&neson 
Carneiro de Azevedo; Heber 
Jorge da Silva; Francisco 
Bezerra; Paulo Sergio Gonpalves; 
Hendy Yabiku; Armapdo 
Cavanha Filhe e Lawrence 
Falconer King. 

Outra novidade apresentada 
foram OS "olhoes", terminals 
publicos atrav^s dos quais 
qualquer pessoa pode ter acesso 
gratuito ds informatpoes do 
sistema. Hoje jS existem 13 
terminals publices instalados em 
SSo Paulo, nos seguintes locals: 
Shopping Center Eldorado; 
Shopping Ibirapuera; Shopping 
Center Norte; BiblJoteca 
Municip>al Mdrio de Andrade; 
Centro Cultural de Sao Paulo; 
Faculdade de Economia da 
USP;Sesc Pomp^ia; 
Sesc Vila Nova; loja da Telesp 
da Rua 7 de Abril e na sede da 
Companhia na Rua Martiniano 
de Carvalho. 



I STRINGS I 



If A Danvic esti oferacendo aos compradores do seu novo aquipamento 
Cs^la Dual um treinamento de uma semana para operspao do micro. 
Dual tern dois microprocessadores: 280A. de oito bits, e 8080, de 16 
bits. E para estimular as vendas a nfvel nacional, a empresa estS fazendo 
a prfi-selepao de seus futuros revendedores, de forma a comercializar os 
micros em todo o pal's a partir de julho.* Mais novo fornecedor de pro- 
dutos de Inform^ica em SSo Paulo, a Monolith 2001 tambim desenvol- 
ve software e acaba de concluir o programa AnSlise da Investimentose 
Financiamentos. para equipamentos da linha Sinclair, com 16 kbytes. A 
empresa fica na Rua Augusta, 1371 - sobreloja 7,tel.: (Oil) 268-4370. 
->c A Brascom fechou neg6cio para a venda do seu microcomputador 
BB 1000 ao Labor3t6rio de Subsistemas Integrdveis da USP. Na mesma 
universidade jiaxiste um outro BR 1000 irvtalsdo no Departamento de 
Engenharia. A\6m de Sao Paulo, os microcomputadores da Brascom 
tamb^m estao sendo usados pelas universidades de Pernambuco, Ceard, 
Joinville e pela Faculdade de Administracao e Economia de Curitiba.^- 
A Plajat, IndiJstria e Comircio da PIAsticot Ltdi. jj etxi produzindo fi- 
les pare videocassete. Com 120 min. de dura^ao e formato VHS, as no- 
vas fitas comercial izadas sob a marca Ferrite terao uma produgao inicial 
de 100 mil unidades (80% paraexportapaol e deverSo custar. no merca- 
do interno. 5 a 10% menos que as similares importadas, it A SID foi a 
empresa escolhida pela Tecnologia Bancdria, raspons^vel pela implanta- 
^o do Banco 24 Moras, para produzir as primeiras 50 unidades nacio- 
nais das mck]uinss ATM (Automated Teller Machine). Assim, em breve, 
o numero total de cabines do Banco 24 Moras passard de 22 para 72. 
estendendo-se de Sao Paulo, Rid de Janeiro e Curitiba. onde j^ opera, 
para atingir tamb^m Belo Horizonte e Porto Alegre. At novas m^uinas 
fabricadas pela SID terao um sistema de voz que orientard os usu^rios. 
'^A Cincon Systems do Brasil colocou no mercado o PC Contact, um 
novo softvwre para liga^o em tempo real entre microcomputadores 
que emulem terminals IBM com equipamentos de grande porte. PC 
Contact estd sendo comercializado com exclusividade pela pr6pria Cin- 
com. Maiores informagoes pelo tel.: (Oil) 81 5-61 88.* A SAD - Sista- 
mas de Apoio k Dacisao firmou contratos de assessoria com a General 
Motors e a Copersucar. Na GM, vai treinar 200 executives da gerencia 



mddia e na Copersucar vai ajudar na implantagffo da Informdtica em 70 
usinas. A SAD tambim vai assessorar a Alcoa, a Brasil Seguros, o Lloyd's 
Bank, a Brasilit. a empresa Mamor6, do grupo Paranapenema, e a Filtro- 
na, fornecedora da Souza Cruz, it O SENAC de SSo Jos^ do Rio Preto, 
S5o Paulo, em conjunto com a Proansi — Empresa de Consultoria de 
Sistemas. da mesma cidade, abriu seu laboratOrio de Informdtica, onde 
OS alunos desenvolverSo aulas de Informitica e de formapao de t^cnico 
em Contabilidade. -k Novo espago p>ara o debate dos temas Itgados d In- 
formStica: a Foiha do ComArcio, jornal da Assoclagao Comercial do Pa- 
ran^, estS publicando regularmente uma p^ina com notfcias sobre pro- 
dutos e eventos da drea. -¥' A Microdigital langou o Programa Microedu- 
ca^o, que vai fornecer ^s institui?6es de ensino facilidades para adqui- 
rir equipamentos e apoio t^cnico e diddtico sob a forma de literature e 
software. Os interessados devem contactar a empresa, d Rua do Bosque, 
1234. CEP 01136, tel.: (Oil) 825-3355, Sab ?au\o ^SP-kAuditoria a 
Seguran^ em Processamento de Dados e Softv^re dos Computadores 
Nacionais sao os semin^rios que o IBAM estd promovendo para a sagun- 
da quinzena do mSs de junho. em sua sede no Rio de Janeiro. *Outro 
semin^rio previsto para o final desie mes 6 o que a Servimec vai realizar 
no seu Centro Experimental de Inform^tica. sobre o tema Auditoria 
Efetiva na Area de Sistemas. ir A software house carioca Informatic Ser- 
vice esti agora desenvolvendo aplicativos para micros com o sistema 
operacional CP/M, em conf iguragoes de 48 ou 64 kb de RAM e uma ou 
mais unidades de disquetes de 5 1/4" ou 8". com ou sem impressora. O 
telefone 6: (021) 221-9720. * livro IVhat's Where in the Apple, co- 
nhecido manual de software bdsico desse equipamento, estS sendo tra- 
duzido e em breve terd sua wrsSo em Portugufe. A edipao estS sendo 
patrocinada pela Unitron, fabricante do AP II.A'A AC) - Atseuoriade 
ComunicaQBo Intagrada acaba de associar d Hill and Knowlton IrK., em- 
presa norte-americana do mesmo ramo. Pelo acordo, a Hill and Knowrf- 
ton passa a deter 50% do capital da ACI, iniciando'atua^o conjunta 
com a firma brasileira. ■*: Ji estd disponfvel a 3.^ edipab do livro ^p//ca- 
(oes Series para TK 85 e CP 200, de D6lio Santos Lima. livro custa 
Cr$ 9 mil a pode ser obtido junto h Micron Etetr&nica: Av. Sao Joao. ^ 
74, CEP 12200, tel.: (01231 22-4194, Sao Jos6 dos Campos - SP. £ 



32 



MICRO SISTEMAS, Junho/84 



MICRO SISTEMAS, Junho/84 



33 




Informdtica 84: 

OS preparativos 

do grande evento 



Onde estamos, para onde va- 
mos. Este ^ o lema do Informd- 
tica 84, o grande evento anual 
da indCistria brasileira do setor, 
que reune o XV! I Congresso Na- 
cionsl de Informdtica as IV Fei- 
ra Internacional de Informdtica. 
O evento, que sard realizado no 
Rio de Janeiro, de 5 a 11 de no- 
vembro, no Rrocentro.fot anun- 
ciado d imprensa no dia 10 de 
maio, no Terrasse Club, no Rio, 
pelo presidente da ComJssab Or- 
ganizadora, Erwin Nettesheim,e 
pelo presidente da SUCESU-Na- 
clonal (promotora do evento), 
H^lio Azevedo. 

XVII Congresso foi estru- 
turado em torno dos seguintes 
auuntos: Sondes Tdcnicas; Infor- 
mdtica para Executivos; Infor- 
m^ica Apticada; Fdrum de De- 
betes; 1984 — O Emprego da In- 
formdtica; Mostras Paralelas. 

As Se<;5es Tdcnicas, sagundo 
o Presidente Nettesheim, "serao 
voltadas para analistas de siste- 
mas e programadores, ou para 
pessoas de outras dreas que 'en- 
tendam' tanto quanto estes pro- 
fissionais". Os temas abordados 
serSo: Administra^So e Planeja- 
nrwnto de Informdtica; Automa- 
p5o de Escnt6rios a Redes Lo- 
cais; Auton^a^So Industrial a 
Controle de Processoi; Metodo- 
logia de Desenvolvimento de Sis- 
ten^s e Programas; Microeletro- 
nica a Projetos de Hardv«re; Pro- 
cessamento Distributdo e Redes 
de Comunicaoao de Dados; T6c- 



nicas Futures de informdtica a 
Use de Mini e Microcomputado- 
res; antra outros. 

Este ano, a ComiscSo Organ!- 
zadora apresenta uma novidade 
para a IV Feira: um sistema ind- 
dito de distribuigdb das dreas de 
exposi<;ao, que visa "uma fludn- 
cia racional dos visitantes, dJre- 
cionarxlo-os aos estandes de seu 
interesse, facilitando assim a cir- 
cula^So destes e os contatos en- 
tre osexpositores". 

Os organizadores calculam 
que este ano mais de 300 mil 
pessoas visitarSo a Feira, cuja 
drea destinada aos expositores 
sard suwrior a 22.000 m^, 
4.700 m2 a mais que o total co- 
mercializado no Informdtica 83, 
em SSo Paulo. 

Para o presidente da Comis- 
sSo Or^anizadora, ai venda» es- 
tSo sendo um sucesso: "Jd fo- 
ram comqrcia! izadot todos os 
12.000 m2 do PavilhSo de Ex- 
posifoes a 48 emprasas." E co- 
nx> a expectativa, ainda segundo 
Nettesheim, d de reunir mais de 
300 expositores, restam 10.000 
m^ a serem comercializados ao 
restante dos expositores nas dreas 
que sobrsm: Pavilhao Central e 
passarelas contfguas ao Pavilhdb 
de Exposi^oes. Certamente serd 
uma feira de extremes, com al- 
guns gigantescos estandes ocupa- 
dos pelos expositores nobres e 
cantenas de micro-estandes para 
as microempresas. 



Micro News vai ao cliente 



A lojs Micro News, do Rio de Janeiro, rasoivau botar o micro 
na rua, e para tanto jd conta com uma equipe de oito representan- 
tes externos, encsrregados de levar oi i«rvi9ot e aquipamentos para 
demonttra^go diretamente aoc seut clientes, em suas pr6pr(as em- 
presai. 

Internamente, a loja continue atandendo oi utudrios da micro- 
informdtica, oferecando oi equipementos dai linhas Sinclair, TRS- 
80 a Ap>ple, asiim como lofTwere aplicativo (inclusive dennvolvido 
pelos prdprioc tdcnicos da loja). perifdricos, tuprin>entos, livrot e 
revistas da drea. A Micro News fica na Rua da Assambidia, 10, gru- 
po 3.31 7, Centre, tel.: (021 ) 252-9420, Rio de Janeiro, RJ. 



A P II no Cirandao 

A Unitron acsba de colocar d dispoiicSo dos uiudrios do AP M um 
softvmre que permite a interliga^o dessa equipamento ao CirandSd, 
nova versft3. agora aberta ao publico em geral, do Projeto Ciranda, da 
E mbratel . 

O CirandSo ird atuar a nfvel nacional, para usudrioide equipementos 
de vdrias linhas, que passarSo a dispor de uma bibliotaca de softwere, 
aldm de servipos como correio eletrdnico e clasjjficados, antra outros. O 
novo servi^o da Embrate) deverd entrar em funcionamento a partir do 
segundo semestra detts ano. 



PC -1500 RP, novo 
pocket da Sharp 




Com novos recursos de im- 
pressdb e armazenamento de 
dados, a Sharp estd lanpando a 
calculadora cientCfica progra- 
mdvel PC-1 500 RP, o novo pro- 
duto de sua linha de pocket 
computers. Pela sua portabrli- 
dade e tamanho, a PC-1500 
RP d especffica para quem 
executa tarefas fora do escrit6- 
rio, podendo, no antanto, ser 
utilizada nas mais diversas apli- 
ca^des. 

Pesando 900 gramas, a md- 
quina d constitufda de uma 
unidada de bolso com visor in- 
tegrado e de uma interface 
com impressora a safda para 
grava^So em cassete. Sua m^- 
m6r<a d de 3,5 kb de RAM, 
com m6dulo de 8 kb RAM do 



Tipw tomada, e utilize uma ver- 
sSo de BASIC aperfei^oeda. O 
microprocessador d de 8 bits, 
o qua! permite um rdpido pro- 
cessamento de dados a um bai- 
xo consumo de energia. 

visor, de cristal Uquido, 
d uma matriz mini^dfica de 
7 X 156 pontos e tem capaci- 
dade para 26 dfgitos. Com o 
uso do cursor, no entanto, po- 
de-se consegurr uma Mnha de 
atd 80 caracteres. 

A impressora do novo mo- 
delo d um trapsdor de grdficos 
inteligente, que imprime atd 
36 caracteres por linha, confor- 
me o tamanho de letra esco- 
Ihido (sSb nove tamanKos), em 
qustro direpoes e a quatro co- 
res diferentes (verde, vernwiho, 
azul e preto). O papel utiliza- 
do d do tipo oomum. 



Itau reafirma automagao 



Na ddcima reuniSo do III Pleninco - Plendrio da Industria e Comdr- 
cio, realizado em maio pela Associate Comercial do Rio de Jarteiro, o 
Banco Itau pronrtoveu o convSnio de garantia de cheque estrala que vam 
realizando com mais de 15 mil empresas do comdrcio, industria e pras- 
tapao de servigos. Para cheques que ultrapawem o valor da garantia, a 
consults d feita por telefone, diretamente com o centre da consultas do 
banco. Segundo Hdlio Amaury Minozzo, gerente da Divisad de Comer- 
cializacao de Servigos RJ, itto s6 end sernk) possCvel grapes ao sittema 
Itautec, que interliga todas as agdncias eletrdnicat da rede. 

Interface para linha Sinclair 



A Teknol6gica, de Porto Ale- 
gre, acaba de lanpar a interface 
TL 85 que, ecoplada ao cor>ec- 
tor de expansSo dos TKs 83 e 
85 permite o acionamento, di- 
retamente pelos comandos do 
BASIC ILPRINT, LLIST e 
COPY), de quaisquer impresso- 
ras ou mdquinas de exrever 
adaptadas com comunicapSo pe- 
ralela Centronics. 

A TL 85 possibitita a gerapSo 
direta pelo taclado dos caracte- 
res ASCII, inclusive letrat minus- 
cules, caracteres especTficos da 
Ifngua Portuguese e caracteres 
de controle para impressoras. A 
versao com Editor — TL 85-E — 
possui um editor de textos de- 
senvolvido pela Teknol6gica e 
gravado em EPROM que gera 



textos que podem ser armaze- 
nados em cascete a posteriomen- 
te impresaos ou editadot. Entre 
83 suas prirtcipais caracterfsticas 
destacam-i8 a separap£o sildbica 
dentro das regras da Hngua por- 
tugueia, ajuste automdtico das 
margens verticals e horizontals, 
pardgrafos, nagritos e sublinha- 
mento automdtico, ajuste de es- 
papamento, defintpido de campot 
varidveis para mala direta. 

A Teknol6gica tambdm ofo- 
rece interface de impressora pa- 
ralela para o CP-300. expensdo 
de EPROM para o TK-85, cartao 
de impressora para computado- 
res da linha Apple. Maiores infor- 
mapSes na Av. Sao Pedro, 1062, 
tel.: (0512) 42-8549, Porto Ale- 
gre — RS. 



Proteger programas, 
nao o software 



A protepffo legal deve recarr 
spenas sobre os programas de 
computador e nSo sobre o soft- 
vnare, conceito este bem mais 
abfangente. que inclut desde a 
especificapdio funcional lo que o 
programa faz), a documentapfo, 
o programa em si, e atd o 
msnuaTdo usudrk). 

Esse foi a posipdo que o 
Brasil levou d ultima reuniffo da 
Organizapdo I nternacional de 
Propriedade I ntelectual — 

ONPI , recentemente reaiizada 
em Canberra, Austrdlia, e que 
obteve grande repercussdo entre 
OS perticipantes do encontro. 

A delegapSo brasileira, che- 
fiada pelo embaixador do Brasil 
na Austrdlia e integrada por 
Francisco Eduardo Rego Rama- 
Iho, representando a Assespro, e 
por Josd Antonio Faria Correia, 
da Associapfo Brasileira de 
Propriedade IntemacionBl — 
ABPI, tambdm contestou a 
opjnido — predominante entre 
OS delegados dos pefses desen- 
volvidos — favordvel ao aprovei- 
tamento, medianle adaptapOes, 
da atual legislap^o de direitos 
autorais (copyright). 

Segundo Ramalho, que d 
diretor de software da Asses- 
pro-NacJonal, a tese do copy- 
right saiu bastante abaiada pelo 
questkinamento dos parlicipan- 
tes, sobretudo da delegapdo 
brasileira que, segundo ele, teve 
"uma particJpapSo bastante 
agrsssiva". Outros mecanismos 
de protepJo normalmente invo- 
cedos, sobretudo nos EUA, 
conr>o a marca, a licenpa com 
base no segredo comercial (trade 
secret) e a patente tambdm se 
mostraram ineficazes ou pouco 
apropriados. 

Ap6s definir o programa 
como "o conjunto organizado 
de instnjpSes capaz de dirigir 
mdquinas automdticas de pro- 
cessamento de informa^s. 



para fazd-lai funcionar de modo 
e para fins determinados", e de 
considerd-lo como um "insumo 
estratdgico", uma "ferramenta 
para ativar a economia dos 
parses", a delegapdo brasilei- 
ra propOs encarar-se os progra- 
nws como uma papa de uma 
mdquina, um bem econAmico 
suscetfvel de explorapSo comer- 
cial e nSo como propriedade 
intelectual. 

A tese brasileira rec«bau o 
apoio undnime dos paTses em de- 
senvolvimento, conta Ramalho, 
mas foi vista com reserves e atd 
mesmo combatids pelas nap5es 
industrializadas, em especial os 
Estados Unidos, que jd dispAem 
de um grande acervo de pro- 
gramas a proteger. Como o 
copyright tem sido o prirKipal 
mecanismo de protepdb utiliza- 
do por esses pafses, eles temem 
ficar desprotegidos caso a ONPI 
(drgdo das Naples Unidas) deixe 
de reconhacer a validade do 
copyright para esse caso. A 
grande maioria das napOes, con- 
tudo, apoia a posipSb brasileira, 
enquanto uns p>oucos pafses do 
oriente, notadamente Cingapura 
e Cordia, optam pela "pirataria 
deslavada", livre de qualquer 
espdcie de protepSo. 

A reuniSo de Canberra, ape- 
sar do ciima de discussfo 
poUtica que a envolveu, tsve 
cardter eminentemente tdcnico, 
com o objetivo de fornecar sub- 
si'dios a um documento ampio e 
que conte com o apoio da maio- 
ria dos . parses e organizapOes 
membros da ONPI, Com base 
nas conclusSes tdcnicas desse en- 
contro, a ONPI ird realizar, ain- 
da este ano, uma nova reunido 
para examlnar os aspectos jurf- 
dico e poN'tico dia questdo, 
quando entd^o partird para a ela- 
borapdo do documento defini- 
tivo. 



Automa9ao de escritorios 
e destaque na IP FUSE 



De 20 a 24 de junho estard se realizando em SSo Paulo, no pavilhdo 
de exposipSes do Anhembi, a 11? FUSE - Feira Internaciortal de Uten- 
idios e Servipos de Escrit6rio, que vai reonir cerca de 1 SO empresas de 
Informdtica, TelecomunicapSes, Mobilidrio e fornecedores de servipos e 
materia is. 

O ponto alto este ano serd, sem diivida, o setor de automapSo de 
escrit6rios, em virtude das grandes rriodificapOes que as novas tdcnicas 
deverdo em breve provocar no perf it desse ramo de atividade, com a eli- 
minapdo dos processes burecrdticos e de ctrculapSe de papel, liberando, 
assim, a mdo-de-obra para tarefas mais criativas. Paraleiamente d mestra 
serdo realizados semindrios com especialistas intemacior^ais no assunto. 



Compumicro: 



Experiencia 
e atendimento 
personalizado 



"A Compumicro ndo d uma 
loja. Seguimes uma filosofia — 
conseguida atravds da experidn- 
cia de nosso trabalho em outras 
lojas - de que um ponto de 
venda que oferepa desde calcula- 
doras, TK, DGT, atd micros de 
16 bits nSo pode garantir um 
bom atendin>ento ao cliente. 
Por isso, a Compumicro tem 
uma faixa especffica de clien- 
tes. atendidos de preferdncia 
com hora marcada. cliente 
tem conforto e tranquilidade 
para passar atd trds horas assis- 
tindo a uma demonstrapfo ex- 
clusiva de um sistema". Assim 
Ernesto Marques Camelo, um 
dos s6cies da Compumicro, de- 
fine a empresa. situada no Cen- 
tre do Rio de Janeiro, aberta em 
Janeiro desse ano. 

Os produtos oferecidos pela 
Compumicro sdo: Unitron ("o 
Apple cujo fabricante nos inspi- 
ra maior confianpa"). Nexus 
("da linha de 16 bits, a Scopus 
foi escolhida per ser unria em- 
presa apta a acompanhar a eve- 
lupde dos produtos IBM") e im- 
pressoras Elebra, Elgin e Scrit- 
ta. Nenhum micro TRS-80, pels 
"d uma linha que jd morreu". 

Errtesto Camelo explica que 
OS PC-likes tdm nas organiza- 
pSes de grande ports Ibancos e 
financeiras) e na drea de siste- 
mas (centres de processamento 
de dados) os seus grandes com- 
pradores: "os primeiros comple- 
mentam suas necessidados com 
o PC nacional para evitar pro- 
blemas com a fiscalizapde, e os 
segundos aceitam agora a naces- 
sidade de substituipdo de termi- 
nals por micros, principalmente 
quando sdo de tecnologia IBM". 

As vendas sSo dirigidas, co- 
me se pocte observer, a um pu- 
blico especffico: "No 119 andar 
de um edifCcio d rare entrar in- 
ceutos. As pessoas que nos pre- 
curam vdm geralmente atravds 
da propaganda cliente a cliente. 
Tamos tambdm uma equipe de 
vendas externa, a publicidade 
em veTcutos adequades e um 



bam numere de clientes e con- 
tatos do tempo em que traba- 
Ihamos na Computique e na 
Clappy". 

Mas seja o cliente uma pe- 
quena, mddia, grande empresa 
ou um profissional liberal, Er- 
nesto garante que ele jd chega 
d Compumicro sabendo qual o 
problema que pode ser resolvi- 
do com a ajuda do micro. A 
equ ipe entdo anal isa e deter- 
mine o tipo de sistema adequa- 
do ao cliente e faz a demonstra- 
pdb. "Quando ndo podemos 
atender ds necessidades de clien- 
te, pedimos desculpas e indica- 
mes onde ele deve ir". 

Os programas tambdm sdo 
demonstrados ao cliente. Se ele 
quiser, a Compumicro desenvol- 
ve um software especi'fico para 
ele, mas "preferimos selecionar 
um pacete que jd exista no mer- 
cade. ^ como comprar um ter- 
no na loja a fazer um no alfaia- 
te: pode ser que no cemprado 
pronto a perna da calpa fique 
um pouco mais justa que o 
ideal, mas a diferenpa de prepo 
cempensa. Um sistema desenvel- 
vido sob encomenda custa mais 
que 50% do prepo do equipa- 
mento e hoje jd existem software- 
houses especial izadas que su- 
prem muito bem o mercade". 

Quanto d assistencia tdcnica, 
Ernesto segue um pensamento 
que sempre defendeu: ela deve 
ser prestada pelo fabricante e 
ndo pelo revendedor. 

Ouante ds formas de venda, 
aldm das tradicionais, a Compu- 
micro eferece uma nova modal!- 
dade: o aluguel com oppdo de 
compra. "Vendemos o equipa- 
mento d Rent-a-Type (empresa 
de aluguel) e ela o aluga ao 
cliente. As prestapOes sdo fixes 
(e que 6 uma vantagem am re- 
lapse ae leasing) e variam de 12 
a 18 meses". 

A Compumicro Informdtica 
Empresarial Ltda. fica na Rua 
SetedeSetembro.99/1l9 andar, 
tel.: (021) 224-7007, Rio de Ja- 
neiro, RJ. 



Aplicativos CCE 

Atravds de acordo com a Intelligent Softwiare, dos EUA, a CCE pws- 
sou a comercializar programas aplicativos, entre eles, o Supervisicalc 
(planilha eletronica de cdlcutos), a Janela Migica (processamento de 
textos) e Controle Finenceiro. Os programas vdm acompanhados de ma- 
nual em Portuguds e custam em rnddia 8 ORTN. Infermapoes pelo tel.: 
(Oil) 265-5344, Sao Paulo. ■ 
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Ckjer um programa que o livre dos ma^antes calculos de volume de figuras 
geometricas? Aqui est4 ele, para o seu TRS-80 modelo I ou III 



^U 



Como calcular volumes 
sem fazer forca 



Heber Jorge da Silva 



Qualquer micro compati'vel 
com o TRS-80 modelos I ou 
HI com 16 Kb de RAM 
poderd rodar este programa, 
cujo objetivo e calcular o 
volume de 16 figuras geometricas 
diferentes. 

O programa apresenta um menu com 
as op^Ses correspon denies ^ 16 figuras 
disponi'veis para cdlculo (figura 1). 
Escolhendo uma, o computador plotard 
no video a figura requisitada, 
solicitando ao usudrio entrar com as 
medidas necessirias aos cdlculos. Ao 
infomid-las, deve-se ter o cuidado de 
usar sempre a mesma unidade de 
medida, pois o programs nSo faz 
conversCes. 

Observa95o: as impressoras 









«« MENU ** 












H** 


CALCULOS DE VOLUMES »»* 1 


1 


_ 


Cuba 






9 


- Cone 


2 


- 


Par al el ep 


pedo 




10 


- Tronco de Cone 


3 


- 


Pr 1 sma Xr 


angu lar 




11 


- Esfera 


4 


- 


P 1 ram i de 






12 


- Sctor Esfer ico 


5 


" 


fronco de 


P iramide 




13 


- Zona Esfer ica 


6 


- 


Cunha 






14 


- Zona Esferica (2 bases) 


7 


- 


C i 1 i ndro 






15 


- Cunha Esfer i ca 


8 


— 


Tronco de 


C i 1 i ndro 




16 


- El ipsoide 








SELECION 


E 


•7 


M 



Figura 1 

costumam imprimir de forma diferente 
o cariter de exponenda^So. Os mais 
utilizados s3o: fl, A,Q e t . Em nossa 



listagem esta opera^ao equivale ao 
cardterC • Portanto, durante a 
digit39So, sub$titua-o adeqnadamente . 



r 



CENIRIllDAlll 

til. I ltfl»(IIHt» nil. 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimenlado adquirindo produlos de qualidade consagrada. 



Discos Magneticos 5 Mb 16 MD BOMOelc 

OISKETTES: 5 1M e 8" ■ marca VERBATIM 
ETIQUETASPIMACO-PIMATAB 



FitaMagneiica 600. 1200e240CPes 

Fita CARBOFITAS p/lmpressoras: Globus M ?00 - B 300/600 

Fila p/ Impressoras: Elebrs. Elgin, Epson, Oigilab, Diablo, etc. 

CartuchoColiia400 

Pastas e Formula'iDsConlinuDs 



AV PRESIDENTE WHGASNM82 8(1207 TEL (021)2531120 E 263 5876 



Cdlculo de Volumes 



\ 

15 '*** CALCULOS DE UOLUMES «»« 

20 '*** POR HEBER JORGE DA SILVA - BRASILIA-DF, MARCO/83 »•»(( 

29 UCM»*» MENU PRINCIPAL 

30 CLS:PRINTa454,CHRl(23);"*» CALCULOS DE VOLUMES »»":F0RD=lT0t5 
no: NEXT 

40 CLS:PRINTTAB(2n)"«« MENU *«"sPRINTTAB(10>"»»« CALCULOS DE VOL 

UMES »»»":PRINT 

50 PRINT' i - C-Jbo 9 - Cone"iPRINT" 2 - 

Paralelpp ipedo 10 - Tronco de Cone":PRINT" 3 - Pris 

ma Triangular 11 - Esfera" 

60 PRINT" 4 - PIramide 



12 - Setor Esfer ico"!p 
13 - Zona Esfer i ca"JpRINT" 
Zona Esferica C2 bases)" 

iS - C'jnha Esfer i ca":^ 
16 - El rpsoide" 



■(Q!1FQ<10RQ>16THEN 



RINT" 5 - Tronco de Ptramide 

A - Cunha 14 - 

70 PRINT" 7 - Cil Indro 
RINT" a ~ Tronco de Cil indro 
80 PR1NT:FR1NT 

90 PRINTTAB(15)""t:INPUT"S E L E C I N E 
90 

100 GOSUB97ntON'DGOT01ia, 120, 140, 160, 180,210, 230, 240, 250, 260,280, 
290,300,320,330,340 

IID PRINTaO, "VOLUME DO CUB0"t60SUB350:PR INTa655, "a"sG0SUBa80! U=A 
C31G0T086D 

120 PRlNiai28, "VOLUME DO PARALELEPTPEDO":GOSUB370iPOKEP+428, ?9:P 
OKEP+6ir,.98:POKEP+660,97spRINT3704,"":GOSU8880:GOSUBa90tDOSUB900 
130 V=A«B»C!GOT0n60 

140 PR TNTan, "VOLUME DO PRISMA TRIANGULAR REGULAR":G0SUB390sP0KEP 
+432,97:P0KEP+472,lO4:PRINTa704,"CALrULAND0 A AREA OA aA5E"sG0SU 
8860 :6=.433»AL"2:G0SUB770:n0SUB 780 
150 POSUB4i0:G0SUBI0On:V=S*H!G0T08A0 
160 PRINT3f,4, "VOLUME DA P IRAMIDE" = G0SUB420!PR INTa704, "CALCULANDO 

A AREA DA BA5E"!G0SUBBa0:S=AE2iG05UB77DsG0SU87B0 
170 G05LIB440tF0RX=44T054STEP3:SET(X,8):SET<X,24>:NEXT!P0KEP+344. 
1 04 i GOSUB 1 000 : V=R*M/3 : G0T0060 

180 PRrNTSO,"VOLUMF DO TRONCO DE PIRAMIDE"tG06UB4fj03PRINTa704 ,"C: 
mLCULANDO a AREA DO T0PO"!G0SUB88O:Sl=Ar.2:6OSUB770:G0Bll8780!GOSll 
8480 

IVO PRINTa704,"0 VALOR DA AREA DO TOPO E '" j SI iPR INTa7A8 , "CALCULA. 
NDO A ARFA DA BASE" !nOF;UH09D: S2=Br2 :G0SIIB780:G0SUB490 
200 PRINTa7.:.8, '0 VALOR DA AREA DA BASE E '";S2:F0RX=0T06STEP2:SFT 
(X,l3):SET(X,29)3NEXT:P0KEP+449,i04:G0SUB910!V=H/3*<Sl+S2+SQR(Sl 
»S2>):G0T0860 

210 PRlNTSf28, "VOLUME DA CUNHA"!G0SUB500:PRINTa704, GOSUB080:G 

0SUB890:GOSUB9DD!G0SUB520!G0SUB91O 

220" V=( (2*ft+C>»H»H>/.S:G0SUH800iG0T086D 

230 PRINTaO/'VOllIHE DO r.ILINDR0":G0SUn53OsGOSUB570!B0SUB58DtGOSU 

R1010sV=3.i4iS9»RL2*H:G0T086n 

240 PRINTaO, "VOLUME DO TRONCO DE CILINDRO" : G0SUB530= G0SUB570iG05 

UB590:PRINTa704,""!G05UB940tGOSUB960!V=l.S7D8«Rr2*(Hl+H2i:GOTOB6 



250 PRlNtan," VOLUME DO CONE ' :G0SUB530: G0SUB570:G0SUB600 SGOSU 

Bi010:V=3-I4i59*(Rr2)»H/3:GOT0860 

260 PRIWTaO, "VOLUME DO TRONCO DE C0NE":G0SUB530:60SUB570!G0SUB61 

0:PRlNTa7D4,""!G0SUB950sD0SUB91O 

270 V=i.0472»'H*<R2C2+R2)»<RlC2+Rl)»60TOa60 

280 PRINTSO, "VOLUME DA ESFER A" :G0SU8530sG0SUB640!PR INTa704 , ""a RO 

SUB94nsV=4»3.14l59«Rr3/3!G0T086Q 

290 PRINTaO,"VOI UME DO KFTOR ESFER tCO" :G0SUB6S0!D0SIJB67O:G0SUB68 

0!G0SUB69n:G0SUB102D:G0SI)6i0i0:V=2»3.14159«RC2»H/3!G0T0860 

300 PRINTaO, "VOLUME DA ZONA ESFER ICA" :G0SUB650!G0SUB670=FORX=7T0 

46:SET<X.12):NEXTjF0RX=44T052STEP4!SET(X,7)!SET(X,12):NEXT:P0KEP 

+216,104:f30SUBt020!PRINTa7a4, G0RUB940 3G05UB910 

310 V=3. l4iri9*Hi:2»(R-H/3)!GOT08/.0 

320 PRINTaO, "VOLUME DA ZONA ESFERICA ( 2 BASES >"sG0SUB650:G0SUB 

700 :PRINTa704,""s GOSUB 920sG0SU8910 = V=.5236tfH«(<3«At:2/4) + (3*BE2/4 

)+Hr2)!G0T0860 

330 PRlNTaO, "VOLUME OA CUNHA ESFER rCA"!G0SUB650:G0SUB720!G05UBi0 

2O:PRINT37O4,"":GOSUB940:G0SUBS70:V=.0ii6«F«RC3iG0T0a6U 

340 PRINTaO, "VOLUME DA EL IPS0IDE":G0SUB730 :PR INTa704 ,"" :G0SUB930 

:V=4«3. i4159»Att8*r;/3:GOT0860 

350 F0RX=I0T046!SET{X,13)sSET(X,29):NEXT:F0RX=22T058:SET<X,7)!NE 

XTsX=20:FORY='7T013!GOSUBe5DiNEXT!X=56:FORY=7TOi3:GOSUB850:NEXT:X 

=56!F0RY=23T029!G0SUB850!MEXT 

360 F0RY=7T023:SET<59,Y1:NEXT:F0RY=13T029=SET(9.Y>!SET(47,Y):NEX 

T:FORY=7T023STEP2:SET<22,Yt!NEXT:F0RX=22T05eSTEP3sSET<X,23)!NEXT 

!X=22:F0RY=23T029:tiET(X,Y)!X=X-2:NEXT: RETURN 

370 F0RX=2?T082:SET{X,i4)!NEXT:F0RX=i0T070:SETCX,20)!SET(X,29>:N 
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TECNOLOGIA 

EFICIENCIA 

SERBEDADE 

a servigo de sua 
empresa 




INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMATICA 




CURSOS 

LiNHA IBM (Apoto Marcodatal 
QS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TECNICAS E 
OTIMIZAgAO 

MICROINFORMATICA 

BASIC - ASSEMBLER - PASCAL 

LOGO-CP/M - VISICALC 

dBASE II -WORDSTAR 

FORMAgAO DE PROGRAMADORES 
DURAQAO: 9MESES 

CPD-ORT: IBM 4341 COM TERMINAIS 
LAB0RAT6RI0 DE MICROS 

treinamento in house 

SOLICITE INFORMAQOES E 
folhetos EXPLICATIVOS 



RUA DONA MARIANA - 213 ■ BOTAFOGO 
TELS.:226-3192- 246-9423 





TODA A LINHA 

DE MICROS E 

MINtCOMPUTADORES 



A intorma^do nas pontes dos sous dedos 



Gerenciador de 
banco de dados 



SMvnas opsndorMii: 
M&OOS (BM-PC) CPI 
M CP/M-B6 CROMIX 
COOS MP/M MP/M^ 

U Cureor aodaragAwl 
para o uao de fun^daa 
futltcroon. 




Automagao 
de escntonos 



RequeHmentos cSo 

Sistema: 

U (Mkcroproc«sKador«s SOeo, 

a06S, ZBO, S0B6. SOBS) 
r:64K p/ CP/M: 128K p CP; 

M-86 « MS-DOS: 56K p/ 

Apple II 
Z 2 Olsketss c mmkno de 

126Kcada 
.." Tennlnjil c flO ctriuna* a 

cursor endelecAvel 
L? lmpr«aaora com no mfnl- 

mo SO coluriBS. 



DiMMC (atrta 8.100) iMcrotftgHcl (TX'a S3«52000) 
CP*! aD0,'300,'5OD, knpTMaorM. aMva. atgln, dlainac 
Mtraanganho lata Appi»-Tranlc 



CNaooa Magn^aBOi : 5MB, 16MB, BOUB, etc. 

D J aJ W Oia .- S 1/4" B" aimptaa • dupla laoae 

e aquacaa fyjriaa mafcaaj 

fMi Mapnatl ca ; 600, 1200 e 2400 Pa* 

fttm p/lmpfmnon*: alibw, dtgliab. diablo, cantrantc, 

•IB. 

Qwluclkaa Cobra 400 

• tofMuHrtMoafMiauM 



End. Rua da Lapa. 180 gr.nOS a 1110- CEP 
20021 — Rio de Janeiro — Tel.: (021) 221-3069 







^^ .<^^^ ^<^ 



i>^ 






o^ 



Av. do Contomo, 5626 /3<? andar 

— Eiavassj — Belo Horfzonte — 

PABX (031) — 223-6000 




COMO CALCULAR VOLUMES SEM FAZER FORQA 



EXT: F0RV=20T 02:9: SET ( iO, V ) : SET (72, Y ) :NEXTsFOR Y=14T023:SET \ 84 , Y) iN 
EXTsF0RY=-i4T023STEP2nSET(23,Y)!NEXTSF0RX=23T0BaSTEP3:SET(X,23)iN 
EXT 

380 X=2I:FORY=14TO2n:GOSUBB5a:NEXT:X=0i:FORY=i4TO2O:6OSUB85a:NEX 

T:X=9i;FORY=23T029!G0SUBB5D:NEXT:X=23;F0RY=23TO29:SET(X,Y)!X=X-2 

:NEXT:RETURN 

390 X=18:F0RY=t8T029tSET(X,Y)sX=X-i!NEXT:X=18:F0RY=18T029iBET<X, 

Y).-X=X+1!NEXT:F0RX=7T029!SET(X,29)sNEXT:X=45sF0RY=4T018:G0SUB8S0 

*X+l!NEXT 

400 X=37:FORV=14T029:SET(X.Y)!X=X-2:NEXT:F0RX=37TO58STEP3:SETtX, 
14J:NEXT=X=47:F0RY=4T0i4STEP2sSET(X,Y):X=X-2:NEXT:RETURN 
410 A=iD!D = lB: FOR Y = lf!T029:G0SUB980:A=A-i!B=B + i:NEXT: RETURN 
42D F0RY=RTO29:SET(24,Y)!NEXT:X=?2:FORY=9T023:F0RD=iTO2:SET(X+D, 
Y)!NEXT=X=X-i!NEXT:X=26!F0RY=9T023:F0RD=iT02:SET{X-D,Y)=NFXT:X=X 
+t:NEXT:X=7:F0RY=24T039:F0RD=lT03sSET(X+D,Y>:NEXT!X=X+3sNEXT 
^30 X=41 IFOR Y=24T029!F0RD-1T03: SET (X-D,Y):NEXT:X=X-3;NEXT:X=24:F 
0RY=19T024:SET(X,Y):X=X-3:NEXT!X=24!F0RY=i9T024sSET(X,Y):X=X+3:N 
EXT :P.0KEP+593, 97 = RETURN 

440 A=24!B=24:F0RY-i9T024:G0SUB9aQ:A=A-3 = 8=0+3 :NFXT = A=ii!Ei = 37:F0 
HY=24T029=G0SUB9a0!A=A+3=B=B-3:NEXT:FORY=2DT029:RES£T(25,Y):NEXT 
:SET(22,29)1RETURN 

450 F0RX=32T049=GET(X.9):NEXT=F0RX=20T037:SET(X,i3):NEXT!F0RX=22 
T0593TEP4:SETCX,20)!NEXT=FOfiX=10T047:5ET{X.29)!NEXTsX=20:FORY=i3 
T029!SET(X,Y)iX=X-.6:NEXT!X-=47iFORY=29T0136TEP-i:SET(X,Y)iX=X~.6 
:NEXT 

460 X=AO:FORY=20T09STEP-l=SETfX,Y) =X=X-1 JNEXT !X=22!F0RY=20T09STE 
f'-2=SET(X,Y)aX=X+2:NEXT:Y=9:F0RX=49T037STEP-i:SET<X,Y):Y=Yt.3sNE 
XT:Y=9=FORX=341022STEP-l:SET(X,Y)sY=Y+.3:NEXT!Y=20sFORX=AnT048ST 
FP-1 =SFTCX, Y):Y=Y+.7:NEXT 

4 70 X=22:F0RY=20rO29STEP2sSET(X,YHX=X-2.5:NEXT!P0KEP + i4B,97 = P0K 
FP+54n,98sRETURN 

480 A=.10sB=4A:F0RY=10T012:G0SUe98D = A=A-3!B=B-3:NEXT:RETURN 
490 A=23:B=59:FORY=20T029!G0SLIB98n:A=A-i.4=B=B-i.2=NEXT:X=42!F0R 
i'=20T029:RESET<X,Y>:X=X+.A:NEXT:RETURN 

■on F0RX=iT09t!SET(X, 17> !NEXT=X=i :F0RY=i7T029!SET{X, Y) =X=X+i :NEX 
r:<=9i:F0RY=17T029:SET<X,Y)!X=X-liNEXT:F0RX=i3Td79:SET<X,29>=NEX 
T:X=9iiF0RY=17T024tSET<X,Y):X=X+.3:NEXT 

510 X=l:F0RY=i7T034!SET(X,Y):X=X+3:NEXT!F0RX=22TO93STEP4!SET<X,2 
4):NEXT:X=77:F0RY=29T025STEP-i:F0RD=lTO3:SET(X+D,Y)!NEXTsX=X+3:N 
EXT !X = l2:r-0RY=29T024STEP-2 = SETiX, Y) = X=X+4 : NEXT: POKEP +279 , 99: POKE 
P + A2 i, 98 :POKEP +663, 97! RETURN 

520 F0RY=iaT029STEP2:SET((10,Yl:NEXT:POKEP+5a3,iO4:F0RX=100TOii6 
STEP3!SET(X,i7):SET(X,29)!:NEXT:RETURN 

530 F0RX=20T032!SET(X,7):SETi:X,29>:NEXT = F0RA=aT03:SET(i6+A,B):SE 
r(33+A,B):SrT(i6+A,2B)!SET(33+A,28)!SET(i2+A,9):SET<37+A,9) !SET( 
i2+A,27):SETi37+A,27)ENEXT 

540 F0RA=QT0i!.'5ET(10+A,10)!SET(4l+A,10):SETCi0-i-A,26>:SET(4t+A,2& 
>!SET(fl+A,li):SET(43+A,ii):SET{8+A,25):SETf43+A,25)!NEXT:X=7!F0R 
Y=12T0i5!SET(X,Y):X=X-l=NEXT!X=45sF0RY=12T0i5:SET(X,Y):X=X+i:NEX 
T 

550 X=7:F0RY=24T021STEP-l:SET(X,Y>tX=X-i:NEXTsX=45!F0RY=24T021ST 
_EP-i:SF'LiX_YliX^+lsNEXT:F0RY=i5T016!SET(4,Y):SET(4B,Y)=NEXT!F0R 
Y=20T02i:SET(4,Y):GET(4D,Y)=NEXT:F0RY=l/T019:SET(3,Y):5ETC49,Y): 
NEXT 

560 X=26!F0Rr=lRT026:SETCX,Y):X=X-2:NEXT:P0KEi58i5,li4:RETURN 
570 F0RY=3TO32aTEP2i:SET<26,Y):NEXT:F0RX=2T0i26STEP4:SET(X,ia):NE 

XTsRETURN 

580 F0RX=56T0124SSET<X,7)SSET(X,29)!NEXT=F0RY=7T029:SETC56,Y)SSE 

T(124,Y);NEXTtP0KE16045,104:RETURN 

590 FORX=7aT0i?4=SET(X,7):NEXT=F0RX=9aTOi24:SET<X,29)«NEXT:Xe70: 

FORY=7T029:5ET(X,Y)=X=X+i:NEXT:F0RY=7TO29:SET(124,Y)BNEXTBpOKE15 

47 4,72=P0KE16054,ia4=RETURN 

,J00 F0RY=7T029=SET(l2a,Y) =NEXT: X=i20:F0RY=7T0i8!F0RD=l TOSiSET ( X- 

0,Y):NEXT=X=X-'5:NEXT:X=i2D:F0RY=29T019STEP-i:F0RD=lT05=SET(X-D,Y 

) :NEXT!X=X-5!NEXT:F0RY=l8T032r>TEP2:SETC60,Y):SET(i20,Y)!NEXT:F0R 

X=6OT0l?OBTEP 4 ! SET (X, 32): NEXT :POKEP +748,104: RETURN 

610 F0RX=21T03l!SET(X,i2):SET(X,24>=NEXT:F0RA=0T01:SET(i9+A,13): 

f3ETC32+A,13):SET(17+A,14):SET(34+A,14):SET(i9+A,23):SET{32+A 23) 

:SET(17+A,22)!SET(34+A,22)=NEXTsSET(i6,i5)!SET(16,21):SET(l5,16) 

:5ET{15,20> 

620 SET(36,i5)sSET(37,16):SET(36,21)sSET(37,20)SF0RY=17T0i9:SETC 

14,Y):SET(38,Y)=NEXT:X=26:F0RY=iST022!SET(X,Y)sX=X+2:NEXT:P0KEP+ 

400,i]4=POKEP+40i,49!FORY=7T029:SET<llD,Y)!NEXT:X=ilO:FORY=7TOi2 

!F0RD=0T07 = BET(X'-0,Y) = NEXT = X=X-7 = NEXT 

630 X=110=r0RY=29T024STEP-i:F0RD=iT07:SET(X-D.Y)=NEXT;X=X-7!NEXT 

:F0RY=12T024!SET(68,Y>=NEXT = F0RY=nT0HSTEP2 = SET(68,Y):BET{il0,Y) 

:NEXT:FORX=6aT0110fJTEP4!SET(X, J)rNEXT:P0KEP + 10B,104:RETURN 

640 FORY=3T032STEP2!SET(26,Y):NEXTsFORX=OT053STEP4!SET(X 1B)!NEX 

r= RETURN 



650 F0RX=20T032STEP2!SET(X,7)!NEXT:F0RA=0T03GTEP3:SETa6+A,8)=SE 

T<34+A,8):SET(12+A,9):SET(3B+A,9):NEXT=SET(i0,i0)=SET<42,10)=X=n 

:F0RY=ilT0l6STEP2:SEl(X,Y):X=X-2:NEXT!X=44iF0RY=llT0lASTEP2!SET( 

X,Y):X=X+2:NEXT:F0RY=I7T020BTEP2:SET<3,Yi:SET<49,Y):NEXT 

660 X=4U!F0RY=2iT026BTEP2=BET<X,Y)=X=X-2=NEXT:SET(42,26)!F0RA=OT 

03STEP2:SET(38,27)!SET(34,28)!SET(3D,29)!RETURN 

670 A=20=B=32!F0RY=7T09!G0SUB9fl0:A=A-4:B=B+4:NEXT:F0RX=10T042lSE 

T(X,i0):NEXT!F0RX=BT044=SET(X,li):NEXT= RETURN 

680 A=B=B=44=F0RY=i2T0i7:G0SUB9RO=A=A+3=B=B-3:NEXT»FORX=9T043STE 

P2 = RESET (X, 12): NEXT: RETURN 

690 F0RX=44T0S2STEP4:SET(X,7):SET(X,i2):NEXT:P0KEP+216,i04=RETUR 

N 

700 PRINT3i35,STRINGl<12," " ) !FORX= 1 2T04nsRESET ( X , 9 > = NEXT =F0RX^1 

DT042 : SET (X,iO): NEXT =A=8 =8=44: FOR Y=llT015:G0SUB980:A=A-l:B=B+i:N 

EXT 

710 F0RY=6T0ilSTEP2=SET(i0,Y)sSET<42,Y)sNEXT=FORX=10T042STEP4:SE 

T(X,6):NEXT:F0RY=3T0i5STEP2=BET(4,Y)sSET(48,Y)!NEXT!F0RX=4TO48ST 

EP4!SET<X,3)!NEXT=F0RX = 46T058STfLp4!SET<X,lQ)!SET(X, 15) :NEXT = POKL 

P+77,9BiP0KEP+i4i,97:P0KEP+2B2,104:RETURN 

720 F0RX=2UT032:5ET<X,7):NEXT=A=16:B=36:F0RY=8T018:G0SUB9e0=A=At 

l!B=B"l=NEXT:X=li:F0RY=4T07STEP2:SET(X,Y):X=X+2:NEXT:X=41!F0RY-4 

T07STEP2=SET{X,Y) = X=X-2:NEXT:PRrNTa75 , "alfa"f »SET( 18, S ) :SET (34, 5 

):RETURN 

730 A=20:B=42:F0RY=llT013!G0SU89a0=A=A-5:8=B+5:NEXT:A=2D!B=42:F0 

RY=27T027STEP-1 = GOSUB90Q: A=A-5= B=B+5 :NEXT :F0RX=7T055: SET (X , 14 > =5 

ET{X,-26):NEXT = F0RX=4T058:SET(X,25>:SET<X,i5>:NEXT 

740 F0RX=2T060=SET<X, 16 ) :SET ( X , 24 ) :NEXT : FORX=i T06i :SET < X, 17) =SET 

<X,23):NEXT=F0RY=i8TO22sFORX=0T062!SET<X,Y):NEXT:NEXT!F0RX=86T09 

2:SETCX,in:SET{X,29):NEXT!A=a4!B=94:FORY=12T016:G0GUB980 = A=A-l: 

B=B+l:NEXT 

750 A=84:B=94=F0RY=28T024STEP-1:G0SUB980:A=A-1!B=Q+1:NEXT:F0RX=8 

0T098:SET(X,17):SET(X,23)!NEXTsF0RY=ieT022=F0RX=79T099:SET(X,Y): 

NEXT:NEXT!F0RX=lT0100STEP4:RESET{X,20)!NEXT=F0RY=liT029STEP2=RES 

ET<31,Y)!RE5ET<89,Y):NEXT 

760 r0RX=64T0995TEP4:SET(X,2O):NEXT!SET(i0i,2O) t SET < 105,20): SET ( 

3l,31)=SET<31,9)!SET<89,9):SET<89,3i>!F0RY=9T01ASTEP2:SET(0,Y):S 

ET<79,Y):NEXT:F0RX=97T0i06STEP4:SET<X,il) = NEXT = P0KEP+t9&, 97 : POKE 

P+233, 98! POKEP +372, 99: RETURN 

770 PRrNTa704,RTRINni<40,32> = RETURN 

780 PRINTa7Aa,STRINGi(40,32>:RETURN 

790 PR1NTS832,STR1NG%140,3?) JRETURN 

BOO PRTNTaa96,STRING5f40,32):RETUHN 

810 PRlNTS960,STRINGli44,32) ;= RE TURN 

020 F0RP=16064T016106:POKEP,176!NEXT:F0RP=16192T0i6234!p0KEP,13l 

:NEXT:F0RI = iT06:PRINTa768,' resuUado e' 

"j:F0RD=lT05O = NEXT!pRINTa7B4,UBINC"t»««,*tt*tl,tt«B,Hlt«.tt««tt";y-!FO 
RD=1T0400=NEXT= NEXT: RETURN 
830 PRTNTa960,"TBcle << RETURN >> para novo calculo 

840 Al=lNKEY%sIFAl<>CHRtCI3)THEN840ELSERETURN 

850 F0RD=lT03:SET(X+D,Y>=NEXT=X=X-2! RETURN 

860 GOSUB770!GOSUB7BO:GOSUB790:GOSUB8iO:GOSUBS20:GOf;UB830 = GOT04tl 

870 INPUT-Entre com o valor do angulo al f a" ;F:RETURN 

880 rNPUT"Entr? com o valor do lado (a)"; A:RETURN 

890 INPUT"Entre com o vaior do lado <b )";B sRETURN 

900 INPUT"Entre com o valor do lado (c ) "!C:RETURN 

910 INPUT"Entre com o valor da aUura (h )";H:RETURN 

920 INPUT"Etitre com o valor do diametro tnenor (a )"- A!lNPUT"En(:re 

com o valor do diametro ma i or (b )";B iRETURN 
930 INPUT"Entre com a distancia (a)";A: rNPUT"Ent re com a distanc 
ia (b)"f Bt]:NPUT"Entre com a distancia <c )",-C:RETURN 
940 INPUT"Entre com o valor do raio <r )"-R!RETURN 

950 INPUT"Entre com o valor do rato maior <r )";R2: INPUT"Ent re co 
m o valor do raio nienor (r 1)";R1 sRETURN 

960 INPUT"Entre roni o valor da altura maior (H)";H1 s INPUT"Ent re 
com o valor da altura menor (h )" ;H2!RETURN 

970 CLS:PRlNra960,"<INF0RME VALORES NA HESMA UNIDADE DE MEDIDA)" 
; !P=I5360!RETURN 

980 FORX=ATOB:SET(X,Y)sNEXT:RETURN 
990 F0RX=AT08= RESET (X,Y):NEXT:RETURN 

iODO PRINTa704,"0 VALOR OA AREA DA .BASE E '" ; S !60SUB9iO!RETURN 
1010 PRINTa704,"":G0SUB940:G0SUB910:RETURN 
1020 X=26: _ 



Formado em Admin is trafffo de Empresas pe/a UDF, Heber Jorge da Silva trabaiha atualmen- 
te na Te/ebrasflia. onde exerce atividades ligadas A programa^So de microcomputadores. 
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COLA EM MENOS 
DE 30 SEGUNDOS. 



Colabloc - 1f coladora nacional com 

tempo total de operacao m^ximo de 

30segundos. 

Produto de mesa, compacto, simples e 

seguro, ideal para escritorios que nao 

exijam sistemas complexes de 

encadernapao. 

Perfeito para atender as necessidades de 

usu^rios de computadores e graficas, 

cujo volume de trabalho de 

encadernagao nao seja grande. 

Executa um trabalho limpo por nao 

necessitar de contato manual com a cola. 

Nao exige instalapoes especiais, sendo 

apenas necess^rio uma tomada 
monofasica de 1 10 volts 50/60 Hertz. 



lauranti 



EQUIPAMENTOS PARA PHOCESSAMENTO 
DE DADOS LTDA. 

Matriz: Rua Theodufelo Souto, 308 Cambuci - CEP: 01539 

PABX: 270-8244- Telen: 1011136305 S^o Pai;lo SP 

REPHESENTANTES TECNICOS E COMERCIAIS 

EMTODOO BRASIL. 
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GANE. C;SARSON,T, 
An^lise Estruturada de Sistemas, 
LTC — LivroE TAcnicos a 
Cinatfficos Editora S.A. 

I Andlise Estruturada de Siste- 
mas comp5e-«e de um conjunto 
de tdcnicas e instrumentos surgi- 
dos do sucesso da programagao e 
do projeto estruturado. Os auto- 
res buscam mostrar a diferen^a 
entra trabalho de an^lise (definin- 
do o que o sistema fard) e traba- 



lho de projeto (definindo como 
o ststeina fard), reconhecendo 
que OS anaiistas muitas vezes pro- 
jetam e os projetistas muitas ve- 
zes fazem andlise. 

Os a uteres procuram evitar 
ao mdximo a introdu^o de novos 
lermos, mas como a discipline se 
baseia no projeto estruturado 
(que possui seu pr6prio vocabuli- 
rio) e na teoria sobre banco de 
dados relacional (que tamb^m 
tem seu vocabul^rio pr6prio), sur- 
ge, ds vezes, uma terminologia 
desconhecida. Cada um desses ter- 
mos 6 explicado quando aparece 
pela primeira vez, sendo tamb^m 
definjdo no gloss^rio, no final do 
livro. 



TIGRE, P. B., Computadores 
Brasilairos; IndOstria, Tecno/ogia 
e DependSnda, Editora Campus. 

H Dentro do tema "reserve de 
mercado", este livro analisa o de- 
senvolvimento industrial e tecno- 
l6gico aut&nomo do setor de In- 
form^tJca d luz cto comporta- 
mento competitivo das empresas 
nacionais e muitinacionais, estru- 
tura do mercado, poli'tica gover- 




namental e natureza da tecnolo- 
gia microeletr6nica. 

O livro examina importantes 
questOes levantadas pelo reiatrvo 
sucesso alcan^ado no desenvolvi- 
mento de ecnologia sofisticada 
por um pai's em desenvoivimento. 
Dentre os t6picos discutidos, es- 
tSio as oportunidades e dificul- 
dades com que se deparam as 
empresas nacionais para adquirir 
capacidade t^cnica para projetar, 
desenvolver e fabricar equipamen- 



tos de processamento de dados, 
assim como o papei desempenha- 
do pelas muitinacionais, pela 
transferdncia de tecnologia e pela 
estrutura de mercado. Concluin- 
do, enfatiza a necessidade de po- 
irticas govemamentaJs destinadas 
a superar as barreiras oligopolis- 
tas estabeiecidas por empresas 
muitinacionais, para que a indus- 
trja brasiieira possa continuar 
apresentando o mesmo ritmo ace- 
lerado de crescimento. 

ROSSINI, F.,Li"9uagemd9 
Mdquina para o TK, Editori 
Micromega. 

H Linguagem de MAquina para o 
TK 6 destinado a pessoas que \h 
estejam familiarizadas com o BA- 
SIC desse equiparrwnto, mas que 
tenham pouco ou nenhum conhe- 
cimento sobre linguagem de m4- 
quina. Dividido em duas partes, 
"As instnji?Oes em linguagem de 
m^uina do microprocessador 
Z80" e "Primeiras aplica^Oes da 
linguagem de mfSquinaparaoTK", 
o livro tem o m^rito de desven- 
dar partes que poucos conhecem 
do TK, reveiando algumas de suas 
incrfveis possibilidades. 



liliCRO 

nEiub 

Microcomputadores com credito direto ou leasing 



TK-2000 Cr$ 939.850, 

TK-85 Cr$ 398.850, 

CP-200 Cr$ 409.000. 

CP-300 Cr$ 849.000, 

CP-500 Cr$ 2.390.000, 

DGT-1000 -.Cr$ 1.498.000. 

GRATIS! 

UM CURSO DE BASIC 

ErfTREGA RAPIDA EM TODO BRASIL 



Apjicatlvos: controle de estoque: contabilidade: loiha de 
pagamento: contas a receber pagar: mala direta: cadastro 
de clientes e desenvoivimento de software para cada neces- 
sidade. 



Temos toda linha de perifericos e suprimentos para acom- 
panhar o crescimento de sua empresa. 



MICRONEWS COMERCIO E SERViqOS LTDA. 

R Assembl^ia 10 Gr 3317 - Ed Ceniro Candido Mendes 

Tel-: (0211252 9420 CEP20011/flJ- 



pfus 



com acentuagao 

em portugues 

a&aaeei666uug-2§ 

SISTEMA IVANITA* 



No Video e 
na Impressora 



Totalmente compativel com o 
Processador de Texto - JANELA MAGICA II 



venha 

conhece-lo 

na 




computer store 



Linha Completa de Software para APPLE 

Al Gabriel Monteiro da Silva, 1229 - J. Paulistano 
850 Paulo - SP - Tel,: (01 1) 852-0799 

( *) Sistema IVANITA jd 6 compativel com as seguintes impressoras: 



'GRAFIxeOI 100 

' ISAEL-eOOO 

' m6NICA El -6010 



■ ELEBHAeOlO' n )30l31 
' ELGIN LADY 140WU0L 
' EPSON MX(RX/FX 80 ' 100 



I CENTRONICS 351 

• M«q. de escever OLIVETTI ET 

• Mtg <3e esciever IBM 96 M 96 



UM MICRO ACIMA 
DE QUALQUER SUSPEITiC 






Nexus 1600 conquistou a pre- 
ferencta dos usudrios brasileiros 
de microcomputadores compati- 
veis com IBM-PC. Tambem ndo 
era para menos. Afinal quern 
analisa a linha de micros de 
16 bits sabe que a qualidade do 
Produto, a garantia de con- 
tinuidade de produgao e de 
acompanhamento dos lan^a- 
mentos da IBM. no exterior, 
sdo fundamentais para o su- 
cesso, a medio e longo prazo, 
desta nova linha de equipa- 
mentos. E quem estd no mer- 
cado de informdtica sabe que 
somente o Nexus 1600 pode ofe- 
recer esta garantia. Operando iso- 
ladamente, funcionando como siste- 
ma multiusudrio, com ate 16 termi- 
nais ou emulando um terminal do 




<xmputador de grande parte, o Ne- 
xus 1600 eo "IBM-PC COMPATI- 
VEL" de melhor performance. 
Alem disso, o Nexus 1600 e o unico 
micro "IBM-PC COMPATIVEL" 
aprovado pela SEI. Isto significa 
que somente o Nexus 1600 ^'/m»- 
duzido com pegas e componen- 
tes adquiridos legalmente no 
exterior, diretamente do fa- 
bricante de chips, com contro- 
le de qualidade e garantia de 
de fomecimento. Fomeci- 
mento hoje e amanhd. 
A garantia e assisten- 
cia tecnica oo Nexus 1600 
e prestada diretamente 
pelo fabricante, em todo 
pais. Com o Nexus 1600 seu 
micro ndo fica parade. 
A Compumicro e o fabricante garantem. 



Tudo o que voce precisa para implantar um NEXUS 1600 na 
sua empresa voce encontra na Compumicro. Levantamento de 
necessidades, especificapao de configuragoes, treinamento, for- 
necimento de Software nacional e importado, desenvoivimento 
e implantagao de sistemas, com a garantia da experiencia de 
quem mais entende de 16 bits no Brasil. 



VENDA — ALUGUEL — LEASING 



O maior revendedor NEXUS 
do Rio de Janeiro com os 
menores pre^os do mercado 



ocfTp-rncrD 

INFORMATICA EMPRESARIAL LTDA. 

Rua Sets d« Setambro. 99 - 119 andar 

Tel. PBX (0211 224-7007 

CEP 20050 - Rio de Janeiro - RJ 



EQUIPAMENTOS 



• Vendo novos: TK e CP, 
APPLE, impressorasediskdrtvers. 
Financio. Antonio. Av. Af. Pena, 
952, cj. 522. Tel.: (031 ) 222-3035, 
B. Hte-MG. 

• Vic 20 Commodore 64. Vendo 




interface 
Gustavo, 



p/cassete. Tratar com 
tel.: (Oil) 460-3208. 



• Radioamador vendo interfaces 
para CW (telegrafial e RTTY (ra- 
diotsletipo) para os micros da (i- 
nha SINCLAIR TK82/83/85, 
CP200. InformacSes com Renato 
Strauss PY2-EMI Rua Cardoso de 
Almeida 654/32 - 05013, SSo 
Paulo-SP. 

• Vendo CP300 em excepcional 
estado de conserva^So, prBpo 500 
mil a vista, motivos da venda: fi- 
nancerros; interessados comuni- 
car-« com Ricardo Cardoso pelo 
tel.: (0132) 392746, Santos-SP. 



CURSOS 

• Basic I, Avan^ado e Cobol sSo 
OS cursos oferecidos pela MIKRO, 
h Av. Af. Pena, 952, cj. 522. Tel.: 
(031) 222-3035. B. Hte-MG. 

• A PRO-INFORMATICA SIS- 
TEMAS CONSULTORIA E 
TREINAMENTO oferece regular- 
mente cursos de Cobol, Basic, 
Basic Avan^do e Assembley com 
turmas reduzidas. Al^m das aulas 
priticas, OS alunos dispSem dos 
computadores com assistfincia de 
monitores em horirios extra-aula. 
Rua Josafa Belo, 100-Tel.: (031) 
337-8792 , Cidade Jardim - Belo 
Horizonte. 

• OCBI - CENTRO BRASILEt- 
RO DE INFORMATICA promove 
para OS meses de Junho/Julho os 
cursos de BASIC, BASIC AVAN- 
CAOO, MUNPS, COBOL, CP/M, 



VENDO 



L6GIGA DIGITAL, ASSEMBLER, 
MANUTENQAO DGT 100/1000. 
Turmas reduzidas, certificado de 
conciusao e aulas prSticas. Infor- 
macoes na Av. Passos, 115 - sala 
21 5 ou pelo telefone 233-1 1 23. 

• NETC, estar5 promovendo 
mais uma vez com pleno sucesso, 
durante os meses de Junho/Julho 
e Agosto, os seguintes cursos: De- 
senvolvimento e Projeto de Siste- 
mas apiicados S TransmissaO de 
Dados (45:00hs), Desenvolvinwn- 
to de Interfaces A/D e D/A para 
Aquisicao de Dados e Controle 
(35:00hs), Sistemasde Comunica- 
coes por Fibras Oticas (40:00hsl, 
Processadores BIT ■ SLICED 
(30:00hs} B outros mais. Infor- 
magoes, inscripoes e pedidos de 
cataiogo de Cursos, h Rua Alvaro 
Alvim, 37 - 2P andar - Ceniro 
Rio - CEP: 20031 - Fone: 
[021)225-6013. 

• A Rio Micro est^ promovendo 
cursos de Basic p/criancas e adul- 
tos. Hordrio diurno e noturno, 
insc. abertas: Rua Visconde de Pi- 
rajS, 330 Lj. 314 - Fone: 521- 
4888 - Ipanema e Centre - RJ. 

• CBI - CENTRO BRASI- 
LEIRO DE INFORMATICA 
promove regularmente cursos de 
BASIC, BASIC AVANpADO, 
MUMPS, COBOL, ASSEMBLER, 
manutengSo DGT 100/1000, CP/ 
M, LOGICA DIGITAL, Telepro- 
cessamenio, Controle de proces- 
ses, redes locals, projetos de In- 
terface para Micros. Turmas redu- 
zidas, certificado de conciusao e 
aulas prSticas. !nforma?6es na Av. 
Passos, 115 S/215 ou pelo tel.: 
233-1123. 



SOFTWARE 



■ Vendo fitas com 8 jogos gri- 
ficos e coloridos em alia resolu- 
qSo para o TK-2000 e similares 
Apple. Cada fita vem com os se- 
guintes jogos: SPIDER, LANDER, 
MEMORIA, POKER, PIANO, 
BOXES, CATCH e EQUATE, 
al6m de um programa monitor 
principal. Pre^o por fita com 8 
jogos: Cr$ 30,000,00. Pedidos pe- 
lo telefone: 266-4852 ramal 398 
ou 344 com Daniel. 

• Vendo CP/M (placa Z80 e dis- 
quete com o sistema operacio- 
naOe dBase II tudo por 210 mil. 
Com Jamel - Ox, Postal 1346 - 
84.600 - UniSo da Vitbria-PR. 

• Vendo: editor 6502 - Apple 
Disco. Tel.: (Oil) 579-1354 - SP 

— Enrique. 

. Vendo fita c/10 jogos americ. en- 
tre eles estao: Krazy e King Kong, 
Fogger I e II e Mazoggs. Apenas 
15 mil. Tr. c/Wagner - Pp. A. 
Pena, 77/603. S.J. dos Campos. 

• Funda^o do Eletro Soft, tern 
como objelivo comunicar aos lei- 
tores de Micro Sistemaseaos pos- 
suidores de aparelhos de liigica 
Sinclair (TRS - CP200 - Ringo 

- AS1000- etc.), a troca e venda 
de programas. Escrevam pedindo 
catdlogo para: Eletro Soft, Cx. 
Postal 037 - Sao Carlos, S. Cata- 
rina, CEP: 89885. 

• Vendo ou troco programas de 
jogos e utilit^rios para a linha 
TRS-80 (Naja - JR - CP500 - 
CP300 - Dismac — Digitus) tra- 
tar com Jorge Luiz. R. Mendes — 
Rua da Matriz, 286 - apt9 12 - 



Santo Amaro - SP. Fone: (Oil) 
521-7127 -CEP:04746. 

• DESK - programas in^ditos 
para TK e CP200 16K c/slow - 
Fita 3 - Senha/Puzzle, Fita 4 - 
OVNls/Sopa de letras - Cr$ 
9.(X)0,00 por fita — cheque nomi- 
nal ou reembolso postal. Desk 
Eng. e Sistemas Ltda. Cx. Postal 
180 - 84.100 - Ponta Grossa-PR. 

• DESK — programas in^ditos 
para TK e CP200 16K c/slow ~ 
Fita 1 - Bataiha Naval/Tiro ao 
pato, Fita 2 — Flip Flop/Biorri't- 
mo - Cr$ 9.000,00 por fita - 
cheque nominal ou reembolso 
postal. Desk Eng. e Sistemas Ltda. 
Cx. Postal 180 - 84.100 - Ponta 
Grossa-PR. 

• Troco e vendo programas para 
computadores da linha Sinclair, 
grande acervo. Tratar com Andrfi 
no perfodo da noite, pelo fone 
313546 ou enviar carta para Rua 
Dr. Zaudhick Saadi, 120 - Bela 
Vista - Porto Ategre, CEP 90000. 



DIVERSOS 

• Quero entrar em coniato pos- 
suidores de M. S.,que tenham os 
n° s anteriores ao exemplar de 
fevereiro/84 para obter programas 
e utilitdrios. Remeierei selos e en- 
velopes |»ra a remessa de progra- 
mas. Cartas para Del mar Jos^ 
Thom4, Rua Izidoro Mary, 2037 
- CEP:95100-CaxiasdoSut-RS. 



CLUBES 



Entre p/o Clube da Rio Micro. 
Basta pagar uma taxa de 8 mil e 
contribuir com um livro, terS di- 
reito a usar um micro por lOhs ao 
mes e acesso a biblioteca. Rua 
Visconde de PirajS, 330 lj. 314 - 
Ipanema — RJ- (Numero limitado 
de s6cios). 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentas, Softvrare, Cursot, Clubei e Drvertos: 
voce A quern decide o que, quando e como anunciar nos 
Ctassif icados US. Quanto voc^ terd que pagar? Isso tanibAm 6 
decitio sua. Preste aten^So: 

• cada linha de texto (30 toques, incluindo os eipacot em bronco) 
custaCr$ 2.000,00; 

• linhBS incompleta* serSo cobrsdas como inteiras; 



• o pr6prio anunciante deve checar o valor de seu an{incio com o 
ntjmero de Mnhas que ele contiver; 

• o anCincio deve vir acompanhado de um cheque nominal d ATI 
Editora Ltda; 

Os textos devem ser datilografados ou escritos em lelra de forma, 
obedecando as 30 batidas por linha. Veja um exemplo: 
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_, TMIgto 
Sistemas 



Maiores informa?8©s peloi telefonei: (021)262-5259- RJ ou (Oil) 853-7758- SP. 




miciocorrpijtaJorRlngoR-470^, disparaJo, o melfwr em sua categoria. E rrais i^ido na execute de programas, oferece amplas posaihdSdadesde 
BKparisio e^o unlco rricro totalm€flla projfitacto e (tesenralvido no Biasil. s^rovado pela SB Secrelaria Especial de Iftlormillci 

UmysFdadeirohenWracioiial. .► . * x j i^ ^ ^ l i^,^ 

Voc* pode conur com al« para reso^lTOr proWemas pessoais ot prof Iwtofiala, ou slmplesniertie para se dlwrtlr, »Tim de vfirtos logos disponweta em 

cartuciK>s ou fiias. , «, . , . , . tA-^* 
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A vmda nu toju KP«lill2Kl« HTi micros, 
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o sucesso da quaUdade maior, 
por um prego menor. 
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PC 2001: o 16 bhs mais 
compathf^ com o mercado 
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Pergunta —Possuo urn TK 85 e gostaria 
que vocSs me ajudassem, pois com ele 
ocorrem a/guns problemas estranhos: 
quando estou digitando urn programa 
longo, ao pressionar alguma tecia o 
micro sa\ do ar. Tenho que desligar e 
ligar novamente para recomegar a dlgi- 
tagao. As vezes, aparecem linhas en tre 
as jS ex/stentes no programa em digita- 
<;ao, mas estas linhas, que surgem sozl- 
nhas, contem cddigos em linguagem de 
m^quina e, ao tentar apag4-las, o pro- 
grama come(:a a correr e nab pira mais. 
(Fernando Cesar Ferreira, SC} 

MICRO SISTEMAS - Pelo que pude- 
mos avaliar do problema descrito, o 
que ocorre ^ simples falta de espago, o 
que 6 muitocomum em programas ion- 
gos. manual do equipamento ^ bas- 
tante claro com relapao a esse proble- 
ma (leia o caprtulo 23; "Quando o 
computador fica repleto"), e na revis- 
ta ja foram publicados v^rios artigos 
que abordam este assunto, como o ar- 
tigo "Pequenas memorias, grandes 
economias" (MS nP 22). 

£ precise tamb^m nao esquecer 
que, mesmo que o seu computador te- 
nha uma expansao de 48 ou 64 K, so- 
mente 16 K estao dispom'veis para pro- 
gramas em BASIC (veja o artigo "Siste- 
ma Operacional do ZXSI-Parte I", em 
MS nP 25, p^. 40). Embora as expan- 
soes deem a impressao de que 6 possf- 
vel escrever programas qullom^tricos. 
isto nao ^ verdadeiro. 

Pergunta - Verifiquei recentemente, 
apds a expansao de 16 para 48 K no 
meu DGT-100. que alguns programas 
em linguagem de miquina (que funcio- 
nam perfeitamente no CP-500) nao 
funcionam no DGT-100, por causa das 
setas (normal mente usadas para mover 
algo na tela), pois programas como Pe- 
netrator e Galaxy Invaders, gravados 
em 500 bps e lidos no DGT-100, fun- 
cionam perfeitamente na parte de gri- 
ficos, mas as naves que estes Jogos co- 
mandam nao obedecem ao coman- 
do de nenhuma seta, e o que 4 pior, 
nao obedecem a nenhuma tecla. Su- 
ponho, como o programa funcionou 
perfeitamente (exceto pelo que citei 
antes, sendo que no Galaxy eu conse- 
gui at4 disparar nos invasores, mas nao 



five modo de sair do centra da tela), 
que deve haver alguma pequena modi- 
fica^So de software para rodar progra- 
mas desenvolvidos no TRS-80 Modelo 
III para o TRS-80 Modelo I. Se for as- 
sim, 4 algo facil de ser resolvido? 

Outra duvida: os programas em lin- 
guagem de m^quina quase sempre tSm 
o enderepo de entrada d/ferente do en- 
dereQO inicial. Usando o DIGBUG pos- 
so consegu/r os endere^os final e inicial. 
Mas nao ha modo de obter o endere^o 
de entrada, isto 4, lendo atrav^s do co- 
mando R 1 eu poderia obte-lo, mas 
como a maioria dos programas que con- 
sigo v§m do CP-500, s6 posso l§-los em 
500 bps fe nesta velocidade o R 1 
nao funciona). Se o comando SYSTEM 
s6 exige a digita^ao de I RETURN, 
apds a entrada do programa. para faz§- 
lo funcionar, suponho que devem ha- 
ver dois bytes que armazenem o ende- 
reqo de entrada na forma LSBAMSB. 
Se isso 4 verdade, quais sao ? Se nao 6, 
como devo proceder? (Sergio Meira. 
PE) 

MICRO SISTEMAS - Realmente, em 
que pese a praticamente total compa- 
tibilidade do BASIC do DGT-100 
{Mod. I) eodo CP-500 (Mod. IID.cha- 
mado BASIC Level II, este problema 6 
algo bem complexo : a filosofia de cons- 
tru?ao destes equipamentos i, sob mui- 
tos aspectos.diferente. Em conseqiJen- 
cia, um programa em linguagem de mi- 
quina de um micro pode vir a acionar 
portas E/S completamente diferentes 
das desejadas quando rodado em outro 
equipamento, mesmo tendo sido con- 
vertido com sucesso atraves de pro- 
gramas como o Convert, Converte/JCL, 
Transfer etc. 

Quanto ^ sua segunda duvida, os en- 
deregos que voce deseja sao; 40DF e 
40E0 (16607 e 16608). A respeito des- 
te assunto, leia o artigo "Linguagem de 
m^quina no DGT-100", publicado em 
MSnP 15,p^gina 14. 

Pergunta - Possuo um CP-300 sem 
drive e gostaria de saber como devo 
proceder para digitar um programa em 
linguagem de m^quina. prdprio mo- 
nitor residente do equipamento 4 su- 
ficiente ou 4 precise usar um progra- 
ma editor Assembler? Eu ji tentei com 



um editor Assembler para o TRS-80, 
mas ao termlnar de carregar o progra- 
ma, apareceram caracteres estranhos 
no v(deo. Soube que o editor Assem- 
bler para o TRS-80 em fita sd serve pa- 
ra o TRS-80 Modelo /, e que o editor 
Assembler para o Modelo III s6 4 dis- 
ponfvel em disquete e, portanto, seria 
impossi'vel utiliza-lo no CP-300 sem 
drive. Existe no mercado editor As- 
sembler em fita para o TRS-80 Mod. 
III? Se o monitor residente do CP-300 
for suficiente, como devo proceder? 
(Jamil Mattar Valente, SC) 

MICRO SISTEMAS - Existem edito- 
res Assembler em fita para o TRS-80 
Mod. Ill, e podem ser perfeitamente 
utilizados no CP-300 ou CP-500. E 6 
relativamente fdcil conseguir uma c6- 
pia com um colega ou mesmo atraves 
da Se?ao Classif icados de MS. 

O monitor residente permiteque se 
introduza, execute, e transfira da me- 
m6ria para a fita, e vice-versa, qualquer 
programa em linguagem de m^quina, 
desde que se disponha dos necessaries 
codigos-objeto (os hexadecimais que 
aparecem S esquerda de um programa 
assemblado). Os comandos necess^rios 
podem ser encontrados nas p^ginas 
131 a 136 do manual do equipamento 
e sao, em resume: 

S: substitui o conte6do do enderetpo 
fornecido; 

J: salta para o enderepo especificado e 
inicia a execugao (por exempio, se vo- 
ce introduziu o seu programa a partir 
do endere(?amento 8000 usando o co- 
mando S, execute-o com J8000); 
T; transfere o programa da membria 
para a fita; 

C: carrega o programa da fita para a 
memoria. 

Pergunta — Seria possfvel carregar mais 
de um programa (como se fossem da- 
dos) utilizando o comando DLOAD? 
(Marcelo B. Silveira, SP). 

MICRO SISTEMAS - t totalmente 
impossi'vel carregar mais de um progra- 
ma no micro com a utilizapao da fun- 
pao DLOAD. No entanto, essa opera- 
pao - chamada MERGE — 6 extrema- 
mente ficil de ser estruturada por um 
programa em linguagem de m^quina. 
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Um programa para os micros da linha Sinclair que utiliza 
o m4todo da decomposiQao LU para a resoiugao de sistemas lineares 



Decomposi^ao LU 
para sistemas lineares 



Alvaro Rodolfo De Pierro 



Amaior parte dos modelos matematicos originados nas 
diversas areas do cx)nhecin)ento, como por exemplo a 
engenharia ou a economia, levam, em algum estdgio, k 
necessidade de resolver um ou mais sistemas de equa- 
fSes algebricas lineaies. Em vista disso, e de maxima importan- 
cia dispor-se de uma rotina eficiente para este fim, entendendo 
por eficiencia o balango de ties fatores fundamentais: estabili- 
dade num^rica (mi'nimo crescimento dos erros de sai'da corn- 
parados com OS erros na entrada de dados), espa^o ocupado na 
mem6ria e tempo de resposta. 

Nosso problema consiste em resolver o sistema (expresso na 
forma matricial) Ax = b (I), onde: 



Se a^'j^' = 0, o algoritmo troca a linha k com alguma linha 
p.k < p < n, tal que 2^^^ + 0; se nao houver nenhuma linha, a 
matriz 6 singular e o sistema nSo tem solugao linica. O passo 
seguinte i resolver o sistema triangular definido pelos 



( n) 



Ij 



) i . J = 1 , . . . ,n 



& uma matriz de ordem n nSo singular e 

X = (x.) e b = (b.) 
1 1 

sac vetores de ordem n. 

O metodo cISssico utUizado para resolver este sistema ^ a 
Elimitmgao de Gauss, que produz uma matriz triangular supe- 
rior, eliminando sequencialmente os elementos abaixo da dia- 
gonal principal, resultando o seguinte algoritmo: 



para k = 1 ate n-1 



para i = k*1 ate n 



(2) 



u 


= a^ . (i j, j = 1 


I • • 


^ 


-b^ i=1,...,n 




ouseja, 






"n ''i 


* "12 ^2 -^ ■•• * "In % 


= ^1 




"22 ^2^1^'- ^ "2n ^n 


^ ^ 




"■^^ 1 

~~ U ' X 

nn n 


1 

= b 

n 


com seguinte algoritmo de substitui93o regressiva: 


X = 

n 


= b 
n 





( 3) 



se ] a Ri 



(k ) 

Ik ^Ik ( k) , „ 

se a . . / 



Cf ) 



,(k) 
kk 



kk 



para j = k»I ate n 



s e j a 



(k.1 ) (k) 



,(k* U { k ) 



(k> 

( k ) 



Ik ''k 



4S 



para i = n-1 ate 1 

_ n 

X. = (b. - ?_.^, u.. x.)/u.. 



sendo que, se Ujj = para algum i, a matriz A d singular, t fdcil 
verificar que, se aj^'j^* + para k = l,...,n, a matriz A 6 exa- 
tamente o produto das matrizes (ver referenda bibliografica): 
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L = 






3 1 



m , m ^ . . . m 1 

n 1 n 2 n n - 1 



{ 5 ) 



niimero de opera9oes (multiphca96es/divis5es) para a Elimina- 
ndo de Gauss 6 da ordem de nf aproximadamente e o numero 
de opera9oes para resolver um sistema triangular por substitui- 
930 gira em tomo de -a_ , em termos computacionais fica mui- 
to mais economico - se for necessdrio resolver diferentes siste- 
mas com a mesma matriz — , usar a decomposi9§o LU e resol- 
ver dois sistemas triangulares do que aphcar a Eliminando de 
Gauss para o vetor b. Por outro lado, como L e U sao triangu- 
lares, podem ser armazenadas no lugar de A sem perde-la, jd 
que esta pode ser reconstrui'da atrav^s do produto. 
Vejamos um exemplo. Seja a matriz de 3 x 3 



U = 




1 n 



2n 



1 1 



- 1 



(6) 



2 1 1 
1 2 -? 



a seqiiencia gerada pelo algoritmo proposto seria: 



n n 




ou seja, A = LU. e portanto sistema (1) 6 equivalente a L seria a matriz triangular abaixo da diagonal principal, com 
LUx = b ou "uns" na diagonal, e U seria a matriz acima da diagonal prin- 

cipal com esta inclui'da. 

Se vetor b for (4, 9, 5)*, deveri'amos entato resolver 



L = b 

y 



(7) 



= y 



e o cflculo da solu9ao reduz-se ao cilculo da solu9ao de dois 
sistemas triangulares como em (3). Tendo em conta que o 
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* ^2 
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Que tal fazer um piograma diferente 

computador? 



comseu 




Para voce que tem um micro computador CP 500, 
Digitus, Naja ou qualquer outro da linha TRS 80. a Nasajon 
Sistemas esta oferecendo uma serie de programas que 
podem agilizar ainda mais as diversas areas de sua empresa. 

Maique uma visita e venha assist ir a demonstra<;ao 
de nossos mats de 50 programas para as areas de : 
Contabilidade, Folha de Pagamcnto, Controle de Estoquc, 
Tesouraiia, Mala Direta, Contas a Pagar/Receber, 
Crediaiio, Administragao de Imoveis, Controle de Cusios, 
Arquivo de Processos, Administragao de Consuitorios e 
outro s. 

A Nasajon Sistemas tambem dcsenvolve qualquer 
tipo de software especi'fico.deacordo com as necessidades 
de sua empresa, alem de oferecer assessoria completa de 
implanta^lo, analise, treinamento e apoio. 

Venha ver como i importante fazer um programa 
diferente paia o seu computador. 



Progiama 






Av. Rio Branco, 45 grupo 131 1 
Tel.: (021) 263-1241 -233-0615 
CEP 20090 - Rio de Janeiro 



Folha de Pagamcnto 
controle dcEstoque 

?°^£fat/sal<iobancario) 



Tesouraiia 



S»-"' 



Crcdiano 



Pregos 



Pie90s(CrS) 

480.000 

240.000 

360.000 

180-000 

180.000 

300.000 

360.000 



Cq 



Voce enconlra esses e outros programas em nossos Revendedores Credenciados: 

Rio de Janeiro: Casa Garson: 252-9191 - Eldorado Computadores: 227-0791 - Bits e Bytes: 322-1920 - Micronews: 252-9420 

SalvadoriOfficina: 248-6666 r. 268 -Sysdata: 242-9394 — Pelotas - RS: Processa: (0532) 25-4741 



DECOMPOSiqAO LU PARA SISTEMAS LINEARES 

















Decoinposigao LU 






3000 REM "LU+S" 


8260 LET AB=ABS {A{P(I),K)J 


8540 


PRINT "Bl";I;"! =";Ba) 




8010 REM LEITURA DA DIMENSAO N E 


8270 IF MAX>=AB THEN GOTO 8300 


8550 


NEXT I 


DA MATRIX A 


8280 LET MAX=AB 


8560 


PAUSE 360 


8020 DIM P(20) 


8290 LET KP=I 


8570 


CLS 


8030 DIM A(20,20) 


8300 NEXT I 


8580 


REM SUBSTITUICAO PROGHESSlV 


8040 PRINT "FORNECA A ORIffiM DA H 


8310 IF MAX=0 THEN GOTO 8440 


A 




ATR1Z:N" 


8320 LET KPP=P(K) 


8590 


LET X(1)=B(P(1) ) 


8050 INPUT N 


8330 LET P(K)=P(KP) 


8600 


FOR 1=2 TO N 


8060 PRINT "N=";N 


8340 LET P(KP)=KPP 


8610 


LET X{I)=B(P(I) ) 


8070 PRINT "FORNECA A MATRIZ A P 


8350 FOR I=K+1 TO N 


8620 


FOR J=l TO I-l 


OR LINHA" 


8360 LET A(P(I) ,K)=A{P(I) ,K) /A(P 


8630 


LET XtI)=X(I)-A(P(I) ,J)"X{J 


8080 FOR 1=1 TO N 


{K),K) 


) 




8090 FOR J=l TO N 


6370 FOR J=K+1 TO N 


8640 


NEXT J 


8100 INPUT A{I,J) 


8380 LET A(P(I) ,J)=A(P(I1 ,J)-A{P 


8650 


NEXT I 


81X0 PRINT "A(";I;", ■■;J;")='';A(I 


(I),K)*A{P(K),J} 


8660 


REM SUBSTITUICAO REGRESSIVA 


,J) 


8390 NEXT J 


8670 


LET X(N)=X(N)/A{P(N) ,N) 


8120 NEXT J 


8400 NEXT I 


8680 


FOR L=2 TO N 


8130 NEXT I 


8410 NEXT K 


8690 


LET I=N+1-L 


8140 PAUSE 360 


8420 IF A(P{N),N)=0 THEN GOTO 84 


8700 


LET S=0 


8150 CLS 


40 


8710 


FOR J=I+1 TO N 


8160 REM DECOMPOSICAO LU COM PIV 


8430 GOTO 8460 


8720 


LET S=S+A(PtIl ,J) "XCJ) 


OTEAMENTO PARCIAL 


8440 PRINT "MATRIZ SINGULAR: PIV 


8730 


NEXT J 


8170 REM INICIALIZA VETOR PERM 


OT NULO; SISTEMA NAO TEM SOLU 


8740 


LET X{I)=X(I)-S)/A{P(I) ,1) 


UTACAO 


CAO UNICA" 


8750 


NEXT L 


8180 FOR 1=1 TO N 


8450 GOTO 8470 


8750 


PRINT "SOLUCAO DE AX=B" 


8190 LET P(I)=I 


8460 GOTO 8490 


8770 


FOR J=l TO N 


8200 NEXT I 


8470 STOP 


8780 


PRINT "X(";J;")=";X(J) 


8210 REM COMECA CALCULO DE L E 


8480 REM ROTINA DE SUBSTITUIOW 


8790 


NEXT J 


U 


8490 DIM B{20) 


8800 


STOP 


8220 FOR K=l TO N-1 


8500 DIM X{20) 






8230 REM CALCULA PIVOT 


8510 PRINT "FORNECA VETOR B" 






8240 LET MAX=0 


8520 FOR 1=1 TO N 






8250 FOR I=K TO N 


8530 INPUT B(I) 








GARANTA 

SUA MS 

TODO AAES ! 



Se voce deseja assinar MICRO SISTEMAS. preencha o 
cupom abaixo (ou uma xerox, caso voce nao queira 
cortar a revJsta): 



empresa. 



profissao /cargo. 



endere^o pars remessa. 



cidade. 



.cep. 



. estado. 



Assinatura anual 

D Micro Sistemas CrS 20.000,00 

D Inform^tica & Administm^ao CrS 20.000,00 

D Micro Sistemas + Informdtica & 

Admin istracgo Cr$ 36.000.00 



Preencha um cheque nominal d ATI Editora Ltda e envie 

para: 

Av. Presidente Wilson, 165/grupo- 1210, Centre, Rio de 

Janeiro, RJ, CEP 20030- tels.; (021 ) 262 5259 

R. Oiiveira Dias, 153, Jardim Paulista, Sao Paulo, SP, CEP 

01433 ■ tels.: (Oil) 853-7758, 881-5668 e 853-3800. 

Seu recibo ser^ enviado pelo correio. 



que daria yj = 4. yj = 1 e y3 = 2, resolvendo seguidamente 



I ' "2 "3 



2 -"3 

2x. - 2 



donde a soIu9aode Ax = bsera X3 = 1, X2 = 2 e Xj = 3. 

Para garantir estabilidade na eliminaijSo e evitar o caso 
^kk ~ ^' ^^^^ iteragao de (2) se faz trocando linhas (o que 
nao modifica a solucao do sistema) e escolhendo a linha com o 
maior valor de /a* ' pk/, k<p^n. Paraganhar tempo de com- 
putagao, no lugar de efetuar a troca, esta e guardada num vetor 
da memoria. 

Apresentamos a segvir uma descri9ao completa, em BASIC 
do ZX81 , do algoritmo proposto. o qual, com mi'nimas modifi- 
cafoes, pode ser impiementado em qualquer um dos micros 
existentes no mercado. 

programa esta dividido em duas partes: a primeira. atd a 
instru^So 8400. contem a decomposi^ao LU de A; a segunda 
parte, dada a decomposi^ao da matriz, requer a entrada do ve- 
tor b como dado. Para rea!iza-la, usa-se a decompost^ao da pri- 
meira parte, cuja informa9ao esta conlida na matriz A, e ve- 
tor p, que contem as trocas de linhas. 
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CLAPPYLANCA 
OTIIMTRON 

EEXPUQ: 




ILQUER 

DIZERTEOADO 
INTEUGENTE. 



O TI e mais novo 
microcomputador da 
Unitron. 

Ele tern um mi- 
croprocessador 6504 
e um teclado 
inteligente. Isto e, 



um teclado gerador 
de caracteres para a 
lingua portuguesa. 
Vela que este 
teclado pode fazer : 

Um.Programa9ao 
de fun^5es especiais 



em qualquer tecla._ 
Dois. Redefinigao 

das posigoes da tecla 

pelo proprio usuario. 
Tres. Modo de 

opera^ao igual a 

maquina de escrever. 



Quatro. Repetigao 
automatica de carac- 
teres. 

Cinco. Diagnostico 
de teste autom^tico 
ao ligar. 

Venha conhecer o 
TI pessoalmente na 
Clappy ou solicite a 
visita de um Consultor 
Tecnico Clappy no 
seu escritono. 

Alias, na Clappy 
voce encontra tudo o 
que precisa em 
microcomputadores, 
perifericos, suprimen- 
tos, softwares. Alem 
de cursos proprios de 
programagao e 
operagao, assistencia 
tecnica, implantagao 
e instalagao de siste- 
mas. E mais. 

Aplicativos 
comerciais: contabili- 
dade, controle de 
estoque, f olha de 
pagamentos, contas a 
pagar e a receber. 

Aplicativos de 
apoio: planilha 
f inanceira , processa- 
mento de dados, 
mala direta, caoastro 
e controle financeiro, 
graficos, etc. 

Seja por venda, 
seja por leasing, 
ninguem pode fazer 
um preco melhor do 
que a Clappy. 

umlron 

Clappy 

Centre: Av. Rio Branco, 12 - 

loja e sobreloja. 

Tel. : (021 ) 253-3395 

Centro: R. Sete de Setembro, 

88- loja Q (galeria) 

Tel.: (021)222-5517/222-5721 

Copacabana: Rua Pompeu 

Loureiro, 99. 

Tel.: (021)257-4398/236-7175 

Aberta diaiiamente das 
10 ^s 20 horas e aos 
sabados das 9 "as 14 horas. 
Estacionamento proprio. 

Assistencia Tecmca : 
234-9929/234-1015 

Entregamos em todo 
Brasil pelo reembolso Varig. 
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Voce que tern varios amigos e contatos comerciais, nao arrisque\ Guarde 
todos OS telefones e enderegos no seu HP-85 e consulte-o sempre que quiser 



Endere^o e telefone? 
Listel responde 



Aideia que motivou a elabora- 
930 deste programa foi a de 
conseguir processar infonna- 
930 em cadeias de caracteres 
no micro HP-85. Como se sabe. este mi- 
cro se destina, principalmente, ao proces- 
samento de dados numericos, apresen- 
tando, porconseguinte, cartas limita^des 
quanto a manipula^ao de strings. Poris- 
so. e pelo fato de que este programa adap- 
ta-se facibnente a qualquer outre tipo 
de cria^ao de arquivos hao -numericos. 
utilizamos como exemplo de utilitario 
um cademo de telefones - o Listel. 



LliTfl TELEFOurCfl 



i-UrflR LETRfl MOD IP LIMPftP 
fTNTRfiP HOME PONE EHDEPC 



Louis Carlos Mello 



Ftgura 1 
82 







320 


INPUT AS 








Listel 


339 
340 
359 
360 


ASSIGN* 1 TO "flRSTEL" 

C=0 

FOR 1=1 TO INF 

C=C+I 






370 


READ* 1 -C . fll |.B«.C* 


10 ' 'C"' LOUIS CflPLOS MELLO 


380 


ON ERPOP GO"rQ 720 


23 ' PXO DE JANEIRO 91 91 64 


39» 


IF ^1»=R« TI-':h 420 


3& ' ftPPUIUO TELEFONICO 


400 


uzy.f I 


48 0I3P "OESEJfl VER RS IN3TPUC0 


410 


' IMPRIMIR FICHA 


E; CS'ND" 


420 


flJ=.rGH* 1 TO * 


?0 InPi.it yf 


439 


PRINT "HOME ";fl« 


69 IF 'Jts"?" THEN 79 EL'iE 90 


440 


PPIHT "ENDERECO " . B» 


79 GOSUE 2320 


459 


PRINT "PONE "-C* 


30 L*=-" 


460 


PPIHT e PPIHT 


?e DIM fl«C301.B«C4ti3.C»Cie3.-HS 


4r<> 


G'.iTO 480 


C303 BltE401.Cl«E10] PtC6000 


4S0 


CLEAR & OISP " LiSTA 


3.R»C753.K^a00-. ,QiC54D,Sa«C4 




TELEFONKfi- 


0] 


490 


ON KEY* 1. "ENTRAP" GOTO 120 


106 CLEftP e (J«=-ENTRE NOMEOa Cfl 


500 


ON KtV* 2, •■NOME" GOTO 310 


P > -ENDERECO' 46 CftP > E PONE 


519 


OH KPY# 3.'F0HE" GOTO 610 


t 10 CAR >" 


520 


OH KEY* 4."ENDERC" GOTO 730 


1 10 GOTO 480 


530 


OH KEY* 5.-LISTRR" GOTO 359 




540 


OH KEY* 6.-LETPfl" GOTO 1140 




550 


ON KEY* 7."nODIF- GOTO 1379 


140 HSSICNt 9 TO -REGIST" 


560 


ON KEY* 8-"LIMPfiR" GOTO 1450 


I5e ASSIGN* I TO •flROTEL" 


570 


KEY LABEL 


IS@ C=0 


580 


GOTO 580 


ire FOR I=t TO INF 


3?9 


RETURN 


lee c=c*? 


680 


STOP 


190 INPUT fl»,B»-C» 


610 


CLEAR e DISP "ENTRE HUMF.RO 


200 IF flf="FlM" THEN 230 




TELEFONICO" 


210 PRINT* l.C . fi*.B*.C» 


620 


INPUT Ct 


220 ne>;t I 


639 


ASSIGN* 1 TO -ARQTEL" 


230 L-C-I 


640 


C=9 


■^40 1 FECHftMtNTO 


650 


C=C + l 


250 PRINT* 9. 1 . L 


€60 


FOR 1=1 TO INF 


260 fiSSICN* 1 TO * 






265 ASSIGN* 9 TO * 


680 


READ* l.C - R».B«.C1» 


270 PRINT "HOMES RECISTRADCiS=" ,L 


690 


IF C1*=CS THEN 420 


230 PRINT i» PPIHT e PRINT 


700 


ON ERROR GOTO 330 


290 COSUE 480 






300 CLEAR @ DISP "ENDERECO NAO E 


720 


CLEAR IS DISP - NOME NAO EHC 


HCONTPftOO' e BEEP e WAIT 200 




ONTRADO" BEEP UAIT 290*1 


e e GOTO 480 




8 GOTO 430 


310 CLEAR § DISP "OUAL NOME QU 


739 


CLEAR <* DISP "EHTPE ENDERE 


E OeSEJfl 'JEP- 







749 INPUT 8* 

750 ASSIGN* 1 TO "ARQTEL" 
769 C=-6 

:*79 FOR I = ! TO inP 

^-ee c=c + i 

790 READ* l.C . A«.Bl5.Ct 
800 OH ERROR GOTO 390 
319 IF Blt=B« THEN 429 

820 ne>:t : 

930 clear e di5p " numero had e 

HCONTPftOO" e BEEP g WAIT 200 

e GOTO 489 
046 IF L«*"" THEN B=2 6 GOTO 135 


850 ASSIGN* 1 TO 'ARQTEL" 
860 B=] 



870 
889 



N=0 
C=0 

890 FOR J=l 

900 



TO IHF STEP 36 
C=C*1 
?10 READ* B.C . A* 
926 IF A$="- THEN 980 
?30 OH ERROR GOTO 989 
946 N=N+1 
958 P»CJ- J*291=A« 
960 K(N>=N 

979 NEXT J 

980 ' ORDEM ALFABETICfl 

990 FOR Y=\ TO N»3e-30 STEP 30 
1099 FOR J=K+30 TO H*30 STEP 39 
i919 IF P*CK.K+29D<=P«CJ. J+293 T 

HEH J 059 
1920 R*=P«Cf .k+29] 
1830 P«CK.K+293=P»tJ. J+293 
1949 P«CJ. J*293=Pf 
1050 HEXT J 
1969 HEXT 1, 
1070 PPIHT & PRINT -LISTA EM OPO 

EM ALFABETICR- 
1989 PRINT " 



1999 
U90 
1 110 
1 129 
1 138 
1140 

1150 
1 160 
1178 
1 189 
1199 
1209 
1219 
1229 
1230 
1240 
1259 
1260 
1279 
1280 
1299 
1309 
1310 
1320 

1339 

1340 

1350 
1369 
1370 
1389 
1390 
1499 
1413 
1429 
1439 
1449 
1459 

1460 
1479 

1489 

1490 
1500 
1510 
1520 
1530 

:540 
■.550 
1560 
1570 
1580 
1399 
1600 
1619 



FOP 1=1 TO N*39 STEP 30 

PRINT P»CI - I*2?3 

NEXT I 

PPIHT e PRINT 

GOTO 430 

CLEAR OISP "OURL A LETRR 

QUE DESEJR VEP" 

G = 

Z9«="" 

INPUT Lf 

ASSIGN* 2 TO "SCRETE* 

FOR 1=1 TO 109 

C=G+1 

PRINT* 2.G , Z9« 

NEXT 1 

ASSIGN* 1 TO -ARQTEL" 

CLEAR 

C=0 

FOP 1=1 TO INF 

C=C+1 

READ* l.C ; fl« 

OH ERROR GOTO 1340 

IF fl*=-- THEN 1349 

IF LS=A«C1.13 THEN H=N*I d 

PRINT* 2,N . A« 

NEXT I 

ASSIGN* 1 TO » 9 ASSIGN* 2 

TO * e GOTO 849 

ASSIGN* 2 TO -SCRETE" 

GOTO 870 

' MODIFICAR 

GOTO 1530 

ASSIGN* 9 TO 'REGIST" 

READ* 9- 1 . C 

CLEAR 9 DISP 0* 

ASSIGN* 1 TO "AROTEL" 

GOTO 178 

' RETURN 

CLEAR e DISP -DIGITE 9 ^.G M 

INUSCULAJP-'CDNFIR- MAR" 

INPUT Q4* 

IF 04t="9" THEH 1489 ELSE 4 

39 

PURGE "ARQTEL- e PURGE "SCR 

ETE" 6 PURGE "REGIST" 

CREATE "ARQTEL". 290. 89 

CREATE "REGIST*- 100. le 

CREATE "SCRETE- . 109.35 

GOTO 480 

CLEAR 9 OISP - «( 

MENU»»" 

D;-iF 

D;SP -! ADICIONRR" 

DISP "2 MANIPULAR" 

DISP "ESCOLHA SUA OPCRO" 

INPUT Y8 

IF Y8=l THEN 1399 

IF Y8=2 THEH 1619 

CLEAR OISP "MANIPULACAO S 

PODE SER FEITA COMO NO 

ME SE HAO SOUBER USE OUT 

RA ROTINA - 



le2a OISP » DISP 

1630 DISP "OUAL NOME QUE DESEJ 

A yEP" 

1649 INPUT Alt 

1650 C=0 

1660 ASSIGN* 1 TO "ARQTEL" 

1670 FOP 1=1 TO IHF 

1699 C=C+1 

1690 READ* 1 -C . A»,B».C» 

1709 IF A1«=A« THEN 1740 

1710 ON ERROR GOTO 1730 

1729 HEXT I 

1730 ASSIGN* 1 TO « e GOTO 729 
1740 CLEAR @ DISF "NOME '.A* 

1759 DISP "END ".B« 

1760 DISP "FONE " .C« 

1779 DISP DISP -DESEJA MUDAR U 

M DOS ITENSCS'-N3" 
1789 IHPIJT :<f* 
1799 IF y.5S = -S" ThEN 1810 
1809 GOTO 480 

1819 OISP e DISP "N0ME=1.END =2 
E F0NE=3" 

1820 DISP "OUAL UOCE DESEJA MUDA 
P- 

1830 INPUT X5 

l'?49 IF X5 = l THEN X5«="N0HE" 
1^'0 IF X5=2 THEN X5«="ENDEREC0- 
ir60 IF X5=3 THEN XSf^'-FONE" 
1870 DISP e DISP "OUAL NOVO ". 

X5* 
1580 INPUT S8« 
1890 IF ;^5=1 THEN fl»-S8S 
1900 IF X5=2 THEN B»=S8$ 
1918 IF X5=3 THEH Cf=S9« 
1920 CLEAR e DISP 'NOME -.PiS 
1939 DISP -ENO 'iB» 

1949 DISP "FONE " .C« 

1950 DISP « OISP e DISP "ESTA IN 
FORMACHO ESTA CDRRETfi" 

1960 INPUT a5» 

1979 CLEAR 6 DISP "DEjEJA MAIS H 
RNIPULACRO" 

1980 INPUT Y2* 

1990 IF Y2«="S' RHO XS^a-S" THEN 
PRINT* i,c , A«.B»-C» e GO 

TO 2019 
2990 IF X5»="5" THEH PRINT* l-C 

i A«,B».:» 6 ASSIGN* 1 TO * 
e GOTO 489 
2010 CLEAR e GOTO 1810 
2029 I INSTRUCOES 
2930 CLEAR 9 DISF "USUAFIO " 
2040 DISP "Este Ji5t«Na foi dese 

nvol^ido visando a facili 

2050 DISP 'o seu eiiPre=>o Observ 

acoes " 
2060 DISP 
2970 DISP 'I>Di«ne FIM" para 1 

er»inar as entfada? ou adic 

oes ao ar^uivo. " 
2080 DI^R 
2999 DISP •2*Nao se pode elimma 

r L>*i caapo do arnuiuo> lo^o 

■ui 'a at encao" 

2199 DISP "^uanto as inclusoes e 

=•2 ©<clij- 30«S ■ " 

2110 IF w*="C" THEN 2159 

2120 OISP 

2130 DISP "APERTE 'COHT' PARA CO 

NTINUflP" 
2140 PAUSE 
2150 DISP 
2160 DISP "3>Ha' sonente 200 cam 

pos 1 Par a ins t rucoes ^uari 

to a 5ua aii»>l la-" 
2170 DISP "cao.vide »anual de in 

St rgcoes> . " 
2180 DISP 
2139 OISP "4>Li»ites estab.^ ?cid 

OS Fara o laaanho de cada 

irem 39 carac-" 

2200 DISP "teres por noMe.40 por 

endereco e 10 Por tele+on 

e. " 
2210 DISP 

2220 DISP -5>Su9estoes deve* ser 
ent-i adas a Louis Carlos M 

ellO'Riia yolun-' 
2230 DISP "tarios da Patria 102 

cl0.For.e " 
2^49 DISP "■021) 246-9582 ' 
2250 DISP e OISP " 
Obt 1 9ado" 
2269 PRiMT S PRINT 
2279 IF if»="C" THEN CRT IS I 6 R 

ETURN 
2289 WAIT 19099 
2299 DISP e DISP " ' RARfl COPIflR P 

RESSIONE " .CHR»<:67*126>- ">" 
2399 INPUT y« 
23!n IF y»="C" THEN CRT IS 2 6 G 

OTO 2929 e GOTO 2320 
2329 RETURH 



Este sistema funciona como um cata- 
logo de nomes, endere^os e numeros, 
onde se pode procurar qualquer item do 
arquivo por qualquer das partes que o 
comp5em. Assim, atraves das teclas de- 
finidas pelo usuirio (vide figura 1), ele 
pode acessar o arquivo central pelo no- 
me, endereco ou telefone. 

Pressionando-se a tecla especial 
LISTAR, por exemplo, todos os nomes 
inclui'dos no arquivo serao listados em 
ordem alfabetica, seja qual for a ordem 
em que os dados tenham sido introduzi- 
dos. usudrio tambem podera pedir 
uma listagem por letra, ou seja, apertan- 
do a tecla LETRA, o sistema pedira qual 
a letra desejada e prosseguira fazendo 
uma listagem em ordem alfabetica de to- 
dos OS nomes do arquivo que come^am 
com aquela letra (esta opera9ao, no en- 
tanto. podera demorar sensivelmente 
mais do que as outras). 

Para entrar dados pela primeira vez, 
pressione a tecla ENTRAR. Antes disso, 
porem, ^ necessario criar os arquivos, o 
que pode ser feito atraves do proprio sis- 
tema, digitando RUN 1490 e ENDLINE 
(nSo se esque9a de digitar RUN depois 
para inicializar o programa). Agora, se 
voce quiser eliminar arquivos indeseja- 
veis, aperte a tecla LIMPAR, efetuando 
assim um PURGE nos arquivos exis- 
tentes (tres ao todo). Automalicamente 
serd lan9ado um CREATE, gerando no- 
vamente- os arquivos indispensaveis ao 
funcionamento do programa. 

Para adicionar ou modificar um cam- 
po do arquivo central, deve-se pressionar 
a tecla MODIF, quando entao aparecera, 
conseqiientemente, um menu que pede 
ao usudrio para escolher entre as op^oes 
ADICIONAR ou MANIPULAR. MANI 
PULAR significa modificar um dos itens 
de um nome ja constante no arquivo; 
ADICIONAR significa juntar um novo 
nome ao arquivo existente. 

sistema e totalmcnte PROMPTED, 
solicitando a inf orma^ao necessaria , 
quando necessaria. Perguntas que devem 
ser respondidas com sim ou ndo preci- 
sam apenas de um S ou N. Lembramos 
ainda que o niimero maximo de entra- 
das e 200, o que pode ser modificado 
conforme a capacidade de seu equipa- 
mento. Este programa roda em um HP- 
85 em sua configura9ao basica, ocupan- 
do 13130 bytes. ■ 



Louis Carlos Mello estudou na Uni^^rsidade 
de Nova York, EUA, especializandose em Ma- 
tem^tica. Atualmente 4 consultor financeiro 
autdnomo. utilizando um HP-85 para c^lculos 
na 4rea em que atua. 
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O comando E 

e a rotina 

$KEY 



Eeste mes iremos tratar de um 
dos mais uteis comandos do 
SGM : comando E (cria linha 
REM). Al^m disso. veremos 
detalhadamente a rotina SKEY, que 6 
praticamente o cora9ao do SGM. 
Para a digita^ao, utilizaremos o 
comando M que foi visto no m6s 
passado. Inicie os trabalhos 
digitando POKE 16389,120 e NEW 
(nao esque^a o comando NEW) e 
logo ap6s canegue no micro o 
comando M. Quando tenninar, a 
situa^So ser^ a seguinte: o topo da 
memdria conteri tudo o que foi 
digjtado no m€s anterior (esta 
^a seii protegida at^ mesmo do 
NEW) e a RAM nonnal conteri o 
programa BASIC utilizado para 
a grava^So do SGM. 
Elimine as linhas 5 a 95, pois essa 
parte do programa nao seii mais 
utilizada. O restante (linhas 100 a 
1 SO), usaremos novamente para a 
gravagSo do que for digitado este 
mes (este, alias, seri o 
procedimento para os pr6ximos 
meses). 

Tudo pronto, digite RAND USR 
31210 e entre no MICRO BUG. 
Deveri aparecer o nome no 
topo do video e, na parte 
inferior, o cursor. Digite M 78D3 
e estaremos posidonados bem no 
infcio da rotina SKEY (nao 
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tec la 


valor hexa 


tecla V3 


lor hexa 


tccla V 


alor hexa 


i 


F0F7 


K 


F7BF 


<> 


DEFB 


2 


FBF7 


L 


FflBF 


> = 


DEDF 


3 


F7F7 


ENTER 


FDBF 


% 


EEDF 


A 


EFF7 


Z 


FBFE 


( 


F6DF 


5 


DFF7 


k 


F7FE 


) 


FADE 


6 


DFEF 


c 


EFFE 


« 


FCDF 


7 


EFEF 


V 


DFFE 


STOP 


FCFO 


B 


F7EF 


8 


0F7F 


LPRINT 


FAFD 


9 


FBEF 


N 


EF7F 


SLOW 


F6FD 





FOEF 


H 


F77F 


FAST 


EEFD 


Q 


FDFB 


. 


FB7F 


LLIST 


DEED 


U 


FBFB 


ESPACO 


FD7F 


MW 


OEBF 


E 


F7FB 


EDIT 


FCF7 


- 


EESF 


R 


EFFB 


AND 


FAF7 


■» 


F6BF 


T 


DFFB 


THEN 


F6F7 


= 


FABF 


Y 


DFDF 


TO 


EEF7 


FUNCTION 


FCBF 


U 


EFDF 


seta E 


DEF7 


: 


FAFE 


I 


F7DF 


seta B 


DEEF 


• 


F6FE 





FBDF 


seta C 


EEEF 


■> 


EEFE 


P 


FDOF 


seta D 


F6EF 


/ 


DEFE 


A 


FDFD 


GRAPHICS 


FAEF 


M 


DE7F 


S 


FBFD 


DELETE 


FCEF 


< 


EE7F 


D 


F7FD 


"" 


FCFB 


) 


F67F 


F 


EFFD 


OR 


FAFB 


^ 


FA7F 


G 


DFFD 


STEP 


F6FB 


L 


FC7F 


H 


DF8F 


< = 


EEFB 


J 


EFBF 


nenh 


una tecia press 


j on ad a 


FFFF 







Figura i 

serj necessirio digiti-la, pois isso 
j5 foi feito). 

A ROTINA SKEY 

Esta i a rotina de leitura do teclado, 
aquela que mantem a ordem e os 
bons costumes dentro do MICRO 



BUG (veja a bstagem 1). seu 
funcionamento 6 semelhante ao 
INPUT do BASIC, por^m eia nao 
espera a entrada de um dado 
completo e sim identifica e 
processa as teclas no exato 
momento em que s3o 
posicionadas. Aten^do: nunca 
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Ustagem 1 




rot Ina SKEY 


(1 


eiturm do teclado) 


78D3 


CD 


BB 


02 


CALL 02SB 


;chama SCAN KEYBOARD. 


78D6 


7C 






LD A,H 


jreinicia se nao houver tecla 


78D7 


FE 


FE 




CP FE 


press ou se for SHIFT. 


7BD9 


30 


F8 




JR NC,78D3 




78DB 


44 






LD B,H 


;identif)ca tecla press i on ada. 


78DC 


4D 






LD C,L 




7BDD 


CD 


BD 


07 


CALL 07BD 




78E0 


7E 






LD A,(HL> 




78Ei 


FE 


76 




CP 76 


[ ret or n a se for ENTER ■ 


78E3 


C9 






RET Z 




78E4 


FE 


77 




CP 77 


(retorna se for DELETE. 


78E6 


C8 






RET Z 




78E7 


FE 


CO 




CP CO 


;eKecuta SCLS. 


7BE9 


28 


ID 




JR Z,790e 




78EB 


FE 


74 




CP 74 


^executa SORAPHICS. 


78ED 


28 


24 




JR Z,7913 




78EF 


FE 


DE 




CP DE 


fnianipula mflag. 


78Fi 


D4 


96 


78 


CALL Z,7896 




78F4 


FE 


75 




CP 75 


•reset . 


7eF6 


CA 


EE 


79 


JP Z,79EE 




78F9 


00 


00 






;va90 para mais un SHIFT. 


78FB 


00 


00 


OD 






78FE 


00 


00 






( vago para ma i s um SHIFT. 


79D0 


00 


GO 


00 






7903 


CB 


77 




BIT 6, A 


jretorna sc for tecla val Ida. 


7905 


C8 






RET Z 




7906 


ta 


CB 




JR 7BD3 


f re i n i c r a %KEY. 


obs: OS uBuarios 


que possuirea 


iapressora podev fazer a 


seguiDte 


i 1 1 era^ 


ao : 




78F9 


FE 


DD 




CP DD 


;verifica SHIFT T. 


7BFB 


CC 


69 


08 


CALL Z,0869 


■executa comando COPY. 



modiiique essa rotina estando 
no MICRO BUG, pois pode 
haver perda de controle do 
sistema. Se voce quiser mudar 
algum valor ou parametro, 
fa^a-o com o programa em 
BASIC do mes passado. 
A mecanica de S KEY ^ 
acionada por um CALL 78D3. A 
rotina esperar^ at^ que uma 
tecla seja pressionada. Se for 
ENTER, DELET ou qualquer 
outra tecla no intervalo de " a Z, 



SKEY devolver^ o valor do 
cariter no acumulador (registrador A); 
caso contrdrio, o sistema executard 
alguma funjao SHIFT ou 
simplesmente ignorard a tecla. 
Vejamos como se processa, dentro de 
SKEY, o reconhecimento de uma 
tecla. A rotina 02BB € a SCAN 
KEYBOARD do sistema operacional. 
Quando ela e acionada, o sistema 
produz uma varredura nas linhas e 
colunas que compoem o 
chaveamento do tecJado e retorna 

















Listagem 2 




rot ina SCONTROL 


(man i pul a 


MFLAG) 


7896 


D6 DE 


SUB DE 


rcalcula fatxa 0-7. 


7898 


47 


LD a, A 




7899 


OE 01 


LD C,01 




789B 


28 04 


JR 2,78Ai 


jsalta se for bit 0. 


789D 


CB 11 


RL C 


fcalcula Dperador logico. 


789F 


10 FC 


DJNZ,789D 




78A1 


3A 26 79 


LD A, (7926) 


;manipula HFLAG. 


78A4 


A9 


XOR C 




78A5 


32 26 79 


LD (7926), A 


;repoe MFLAG, 


78AS 


3E FF 


LD A,FF 


jseta acumulador e prossegue. 



com valor da tecla pressionada no 
par HL (veja a figura 1). Esse valor 
pode, em alguns casos, ser usado para 
um reconhecimento, mas antes 
serd preciso decodific^-Io para que haja 
uma perfeita identifica9lo da tecla 
pressionada. pr6ximo passo € 
transferir o valor do par HL para o par 
BC e chamar a rotina 07BD, tamb^m 
do sistema operacional do micro. 
resultado dessas opera^des seri o 
acumulador (registrador A) contendo 
o valor do c6digo da tecla em quest3o. 
Tra9ando um paralelo com o BASIC, 
seria algo semelhante a LET A = 
CODEINKEYS. 
As fun96es SHIFT operadas pot 
SKEY sSo estabelecidas de duas 
formas: as vinculadas a MFLAG e as 
independentes, que podem ou nao 
estar associadas a SFLAG. A MFLAG 
^ a mais importante varidvel do sistema 



I t 100001 - 11011110 



aoooooi I 
( 1) 



LD C,OI 



DOOOOOOt 



C - t 1 ^ !■ 

C - A 1 5 2x 

4 1 

C - d 1 8 J» 



XOR C 




HFLAC - 
C 

HFLKC - 


10 10 


1 1 1 D 


10 10 10 
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Figura 2 

e cada um de seus 8 bits representa 
um estado. Seu endere90 no SGM € 
7926. 

controle de MFLAG € feito pela 
rotina $ CONTROL (listagem 2) que 
funciona da seguinte forma: a chajnada 
CALL Z, 7896 pressup5e o acumulador 
com algum valor SHIFT. Na pritica, 
serSo interpretadas apenas as teclas 
THEN, TO, STEP, LPRINT, LLIST, 
STOP, SLOW e FAST. c6digo da tecla 
pressionada 6 ajustado para a faixa 0-7 
a fim de se determinar o bit de MFLAG 
conespondente. Feito isso, esse bit € 
chaveado pela opera9ao 16glca XOR, ou 
seja, se o bit de MFLAG for 1 , ale seri 
ressetado (= 0); se for 0, seri setado 
(= 1). Acompanhe esse procedimento 
na figura 2, onde, por exemplo, 
MFLAG tern um valor qualquer e a 
tecla pressionada ^ SHIFT S ou 
LPRINT. Nesse exemplo, estaifamos 
mudando a velocidade de impressSo 
do comando M (bit 3) sem, no entanto, 
alterar os outros bits de MFLAG. ^ 

Os outros tipos de SHIFT sfio de afSo aa 
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O COMANDO f E A ROTINA $KEY 

































Listag 


em 3 








7948 


15 


7C 






def 7C15 


;co«ando E 




7C15 


CD 


F7 


7B 




CALL 7BF7 


;chaffla %0R0. 


7Ci8 


CD 


23 


OF 




CALL 0F23 


-FAST. 


7C1B 


2A 


31 


79 




LO HL,<7931) 


jnumero da linha Basic. 


7CiE 


EB 








EX DE,HL 




7C1F 


21 


OF 


27 




LD HL,270F 


;verlfica se a linha e' >9999. 


7C22 


A7 








AND A 




7C23 


ED 


52 






SBC HL,OE 




7C25 


30 


15 






JR NC,7C3C 




7C27 


CD 


Ct 


78 




CALL 78C1 


; impr ime mensageM 


7C2A 


31 


2E 


33 


20 




LINHA ILEGAL. 




26 


00 


2E 


31 








2A 


2C 


26 


Bl 






7C36 


CD 


28 


OF 




CALL 0F2B 


jSLOU. 


7C39 


C3 


4A 


7A 




JP 7A4A 


jreset . 


7C3C 


EB 








EX DE.HL 


•identifica endereco da linha 


7C30 


CD 


D8 


09 




CALL 09D8 


dentro do progr ana Bas 1 c. 


7C40 


20 


14 






JR N2,7C56 




7C42 


CD 


CI 


78 




CALL 78C1 


jlaiprime nensagen 


7C45 


31 


2E 


33 


2D 




LINHA EXISTENTE. 




26 


00 


2A 


3D 








2E 


38 


39 


2A 








33 


39 


AA 








7C54 


IB 


EO 






JR 7C36 


{reset . 


7C56 


E5 








PUSH HL 


;quant Idade de caracteres +6. 


7C57 


2A 


33 


79 




LD HL,(7933) 




7C5A 


01 


06 


00 




LD BC,0006 




7C5D 


09 








ADD HL,BC 




7C5E 


E5 








PUSH HL 


jexpande o prograna para 


7C5F 


CI 








POP BC 


i nser i r 1 i nha REM. 


7C60 


El 








POP HL 




7C61 


E5 








PUSH HL 




7C62 


CD 


9E 


09 




CALL 099E 




7C65 


El 








POP HL 


pcoloca o numero da 1 inha no 


7C66 


ED 


SB 


31 


79 


LD DE,(7931) 


programa Bas i c. 


7C6A 


72 








LD <HL),D 




7C6B 


23 








INC HL 




7C6C 


73 








LD <HL),E 




7C6D 


ED 


4B 


33 


79 


LD BC,(7933) 


;co1oca cfuant idade de 


7C71 


03 








INC BC 


eleMentos da 1 inha. 


7C72 


03 








INC BC 




7C73 


23 








INC HL 




7C74 


71 








LD (HL),C 




7C75 


23 








INC HL 




7C76 


70 








LD (HL),e 




7C77 


23 








INC HL 


; col oca cod 1 go REM. 


7C78 


36 


EA 






LD <HL),EA 




7C7A 


3A 


35 


79 




LD A, C7935> 


; col oca OS caracteres da 


7C7D 


23 








INC HL 


1 inha REM. 


7C7E 


77 








LD (HL),A 




7C7F 


E5 








PUSH HL 


■ - 


7C80 


Dl 








POP DE 




7CBi 


13 








INC DE 




7C82 


OB 








DEC BC 




7CB3 


OB 








DEC BC 




7CB4 


OB 








DEC BC 




7C85 


CB 


7B 






BIT 7,B 




7C87 


03 








INC BC 




7C8B 


20 


02 






JR NZ,7C8C 




7C8A 


ED 


BO 






LDIR 




7C8C 


36 


76 






LD (HL),76 


fcoloca ENTER. 


7C8E 


2A 


10 


40 




LD HL,(40iO) 


;calcula novo D-FILE. 


7C9i 


01 


19 


03 




LD BC,03i9 




7C94 


A7 








AND A 




7C95 


ED 


42 






SBC HL,BC 




7C97 


22 


DC 


40 




LD (400C),HL 




7C9A 


18 


9A 






JR 7C36 


jreset. 



direta, ou seja, sfo executados assim 
que a tecla correspondente for 
pressionada. Dessa forma SHIFT Q 
causa urn CLS no vi'deo e SHIFT i 
produz um RESET geral do sistema, 
cancelando qualquer opera9So em 
andamento. SHIFT 9, que 6 o modo 
GRAPHICS do cursor, nao produz 
a9ao direta, por^m manipula SFLAG 
com uma opera9io XOR semelhante 
i vista anteriormente. 

O COMANDO E 

Este 6y sem duvlda, o comando mais 
bem vindo para todos os usu^os que 
digitam programas em linguagem de 
maquina, pois ele cria linhas REM com 
qualquer quantidade de caracteres, com 
qualquer tipo de cardter e em qualquer 
lugar de um programa BASIC. Parece 
ser uma opera^ao complexa, mas na 
verdade n2o 6. Devemos partir do 
princi'pio de que, a toda hora. o micro 
est£i criando l^as; resta entSo saber 
onde, no sistema operacional, ele faz 
isso e, literalmente, ir de carom nesse 
procedimento. 

A listagem 3 apresenta o sistema todo do 
comando E e a listagem 4 a rotina 
SORG. Sao essas as unicas listagens a 
serem digitadas este mes, lembrando 
sempre que qualquer implementa^So 
deve ser feita com uma correspondente 
alterafSo da Tabela de Definigao dos 
Comandos. 

Vejamos, em piimeiro lugar, como 
funciona a rotina SORG, pois ela € 
utilizada por quase todos os comandos 
do SGM. Sua funfao t organizar a 
entrada de paiimetros via teclado. Toda 
vez que ela for chamada, haveri o 
c^culo de um valor a partir da posi^ao 
de vfdeo AT21,3- Este serd o 
primeiro parametro, o qual ser^ 
arquivado nos endere90S 7931/7932. 
A seguir, o que for encontrado ap6s 
a vl'rgula seri calcuiado como 
segiindo parSmetro e arquivado nos 
enderefos 7933/7934 (se n3o houver 
nenhum dfgito, o valor zero ser4 
assumido). Por ultimo, ap6s a pr6xima 
vfrgula, o di'gito enconirado sera 
interpretado como um car^ter e 
arquivado no endere^o 7935. Feito isso, 
SORG retoma ao ponto em que 
foi chamada. 

comando E inicia sua opera^o 
chamando a rotina SORG para a 
organizafdo de seus parametros, ou 
seja: NDMERO DA LINHA REM, 
QUANTIDADE DE CARACTERES, 
CARATER. A vfrgula funciona como 
delimitador de campo; assim, o 
comando E 1 , 4, * resuitari em 

1 REM * * * * . Se o carrier for omitido. 
o comando assumiri um espa90 como 



Listagem 4 



(organlza parametros dos comandos) 

; i npr i me espaca apos comando. 



XOR A 
RST 10 
CALL 7A52 
OR A 

JP Z,7A4A 
CALL 7A9E 



rot ina iORG 

7BF7 AF 

7BFB D7 

78F9 CO 52 7A 

7BFC B7 

7BFD CA 4A 7A 

7C0O CD 9E 7A 

7CD3 ED 53 31 79 LD (7931), DE 

7C07 23 INC HL 

7C08 CD A7 7A CALL 7AA7 

7C0B ED 53 33 79 LD (7933),DE 

7C0F 23 INC HL 

7C10 7E LD A,(HL> 

7Cli 32 35 79 LD <7935),A 

7C14 C9 RET 



jchama ^CURSOR. 

preset se nao houver valor, 

ica) cula pr iwe i ro valor . 

;calcula segundo valor . 

F Ident i f i ca o caracter. 

fretorna. 



tal (valor de default = 0). Note que este 
comando opera em FAST ap6s essa 
fase , pois a mudan9a do arquivo de 
imagem durante a expans3o do 
programa BASIC 6 critica, e se fosse 
feita em SLOW o sistema perderia o 
controle do sinal de vfdeo, acarretando 
um RESET geral. 
A prdxima rotina do sistema 
operacional a ser utilizada 6 a que 
inicia no enderefo 09D8. Ela 



identifica o endere^o onde estd a linha 
cujo niimero consta no par HL. Quando 
retomar, HL conteri o enderefo da 
linha (caso em que o Zero flag estaii 
setado: Z = 1) ou o endere^o da linha 
imediatamente superior (Z = 0). Desse 
modo, fica ficil saber se }i existe alguma 
linha com a numera^So desejada. 
O pr6ximo passo 6 expandir o programa 
BASIC e, conseqiientemente, o 
arquivo de imagem e a Irea de 



vari^veis. Isso 6 feito pela rotina 099E, 
lembrando que, i quantidade solicitada 
pelo usudrio, deverao ser acrescidos 
mais 6 bytes: numero da linha (2), 
quantidade de elementos (2), c6digo da 
instrufSo REM (1) e o ENTER do 
final (1). Para terminal, o comando faz 
a grava9§o dos caracteres e retoma i 
velocidade SLOW. 
Finalizando, vamos fazer uma 
gravafSo do MICRO BUG para 
podermos continuar no pr6ximo mes. 
Para tanto, use o programa BASIC do 
mes anterior (apenas as linhas 100 a 
1 50) e digjte RUN. Se vocg estiver 
encontrando alguma dificuldade ua 
compreensao ou implementa9ao de 
algum comando, escreva-nos e 
indique na carta "Projeto MICRO 
BUG". Para agilizar a resjposta, 
mande tamb^m um envelope enderefado 
e selado. At^ a pr6xima. p 



Esn projeto vem sendo desenvolvido pela 
equipe do CPD de MICRO SISTEMAS, sob a 
coordenafSo de Renato Degiovani. 



PUBLICACOES PARA COMPUTADORES 



■.IN< t AH ( Pu>a.(, ,1 ..f , ,c : .,ai ii ; .( .»<, , a>I' U\ -,t aKi ii i ID 



• APLICACOESSERIASPARATKSS E CP200 

3? EdifSo. ituaUzidaBcannovicomposiflo^irica CR J 9.000 

Quern i Sincluc'' - Convcrlendo ouUoi BasKS - Conlando os Bylei - Economi- 
zando Membna - Fluxogramas ~ Top Down - Erioi da ROM - Conhecendo a Im- 
picssora - Chaining Programas - Sut>-rolin3s em Cassette - FoEha de Pagamento - 
Balanixte ~ Corre^io Monetlria do Imobilizado - DatConliibuifOes do lAPAS ~ 
Conias a Reccbei - Cadastro de Clienies - Conia Binciria - Corteg3o de Provas - 
Pfoceuadoi de Textos - Esialiitica - Cusioa - Or^amento Domtfstico - Ram To- 
pe* e DauFile emC6digo-elc. 

• 4S PROGRAMAS PRONTOS PARA RODAR EM TK 82C E NE Z800 

8* Ediflo. reimpies&a CRS S.SOO 

Arquivos - Eitoquc - Piano Conlihil - Fotha de Pagamenio - Agenda TekfOnica 
Ca^a ao Palo - Tnlha - Jogo da Velha - Forca - Dado - Tabelas - Tabuada - 
M^dia - Piogressio 



Trdha 
Converslo de Cooidenadai 



Tabeta Price - Fibonacci - De- 



prtcraflo - Renumcrador de linhas em Cbdigo - etc 



• 30 JOCOSTWIA TK 82C E CP 200 

3? Edi^to CRI 6.000 

DamiB - Labirinio - Enterprise - Gotfe - VeBii - Virita to Castelo Caisino - 
Rolcla Russa -Corrida deCavalos - Vinlec Um -CuboMlgico- Senha- Banco 
Imobili jfio - Forca - Dados - [nvasorei - etc. 

PROGRAMAS NO C6D1C0 DA MAqUINA 
Inverilo de Video - Som por Software - Labirinto - Destiava Soft 

• CODIGODEMAQUINAPARATKE CP200 

'■ Edi?io CR$ 9.000 

Niitneros Dinirioi e Hexadecimais - Arquileturi do Z80 - Edilando cm CAdigo - 
Programa para Edi^io - As Insiru^Oes do Z80 em Exemptoi Sub-roiinas da ROM - 
A ROM de 8K - Dicionlno das Inslni^Oes - Hex X MnemOnicos - Rex X EJeci- 
maj - inclujndo os Programas Scroll - Save Display no Ram Top - Conladores de 
Ponios ou Tempo - Dalarde - Renumber - Labirinio - lom por Software - Mi- 
cron Pac - Bombardeio etc. , . 



De&p3c»c& para locos os i ^laclu^ modianlv Oidem ae P30B"iento ou Chsgup Nominal 



M/CRO/V ELETROmCA COM. IND. LTDA. 



Av. Sao Jooo. 74 - Tel. ;0123) 22-419d - cep 12.200 - S. J. Compos-SP 



CONSU'i-'E "jOSS* Ll^'fi CF <^0^'*" = E EM CAS5ETE 



MICRO SISTEMAS, Junho/84 



Niimeros aleatorios 



Na SecSo Cartas de MS nP 25, o leitor Decio Decaro nos pedia um artigo para gerar numeros aleatorios 
na sua HP-41C Em resposta ao seu pedido, diversos leitores nos enviaram suas formulas e programas 
para aiudar a resolver o problema. Embora tenhamos remetido todas as colaborapoes que nos chegaram 
para o Decio por uma questao de espapo selecionamos apenas uma para publicagao. Queremos, no 
entanto delxar aqui registrado os nossos agradecimentos - e os do Decio tambem, que mclusive j^a 
nos escreveu agradecendo a todos pela grande ajuda - aos leitores que mandaram suas colaboragoes. 



Paulo Alfredo Lucena Borges-RS 



Oponto de partida do gerador de numeros aleatdrios 
e a formula que vai gerar estes numeros (e possi'vel 
que algum purista diga que. pelo fato de se usarem 
formulas, os numeros deixam de ser aleatorios, mas 
isto nS'o vem ao caso agora). 

livro de "Aplica^Oes" da HP-4IC (pag. 26) traz a seguinle 

f6 rmula: 



n+ t 



= FRAC(9821 X r + 0,211327) 



Onde rn e a semenle do nOmero e fn+l ^ o numero aleatorio 
gerado. Alraves do manual de uma antiga calculadora Dismac, 
tem-se conhecimento de oulra fomiula: 

r =FRAC(Ti+r) 

n+ 1 " 

Todas as duas sSo eficientes, pordm a do livro de "Aplica- 
gOes" "passa pelo teste espectraJ (Kuth, V. 2§ 3.4)e,por isso, 
seus parametros satisfazem o Teorema A (pagina 15 do livro 
"Aplica9aes"), e gera um milhffo de numeros aleatbrios dislin- 
tosentre Oe 1 (...)"■ 

Sem duvida, existem outras fdrmulas que tambem podem 

ser utilizadas. e fica a crit^rio do usuario escolher qual a que 

melhor Ihe conv^m. Apos esta escolha. o proximo passo e a 

implementa^So de uma rotina para gerar os numeros aleat6- 

rios num determinado intervalo. Uma das possi'veis solu^oes 

para gerar numeros aleatbrios est^ no exemplo apresentado na 

figura 1 . 

A execu9ao, na primeira vez em que se usar este metodo, e 

feita da seguinte forma: 

1) introduzir a semente em STO 00 (qualquer mimero entre 

Del); 

2) introduzir olimite inferior (Ni) em STO 01; 

3) introduzir limite superior (N2) em STO02(*); 

4) introduzir o fator de arredondamenlo em STO 03?; 
5)XEQtALEA(**). 

E nas vezes seguintes, nSo 6 mais necess^rio introduzir a 
semente para executar o programa. Quanto aos demais dados. 
s6 deverao ser reintroduzidos se forem modificados. 
C^) Para garantir que o limite superior do intervalo tenha 
igual probabilidade de ocorrencia. 6 conveniente usar N2 + 
1 em STO 02, ao inves de N2 simplesmente. 
(**) Se uso da rotina for freqiiente, deve-se atribuiMa a uma 
das teclas (modo USER). 



PASSO 

01 LBL^ALEA- 

02 9821 

03 RCL 00 



04 * 

05 .211327 

06 + - 

07 FRC 



08 STO 00- 

09 RCL 02- 

10 RCL 0!- 
1 1 



12 * 

13 RCL 3- 



20 RTN 



comentArio 

-nome da rotina 



contem a "semente" do numero 
aleatorio 



■*-h3 aleatorio gerado (entre 
e 1) 

-•-o proprio ne gerado vai ser- 
vir de "semente" para o no 
seguinte 

-» limite superior do intervalo 

(N2) 
— ^limite inferior do intervalo 



(N 



■*-obtein a amplitude do interva 
lo 




-fator de arredondamento para 
o ns de casas decimals dese- 

jado (n» inteiro ►RCL 03 = 

1, 1 casa decimal — ►RCL 03 = 
10, 2 casas— ►RCL 03 = 100, e 
assim per diante) 



arredondamento para o n^ de 
casas decimals especificado 



numero desejado ( no mostra- 

dor) 



M 




nao importa o tamanho de seu problema, 
nos temos a solucao na medida exata ! 



Figura 1 




CP-300 




MODULAR 
LINGUAG EM BASIC 
48 K DEMEMORIA 
COMPATIVEL COM 
SOFTWARE DO CP-500 



CP-500 




S-600 




MICRO: 

• LINGUAGEIMS COBOL. 
BASIC E FORTRAN 

• 64KDEMEM0RtA 

• DUAS UNIDADES DE 

orsco 



IMPRESSORA: 

• VELOCIDADE 130 GPS 

• MATRlZ7x9 

• 132COLUNAS 

• ORIGINAL +5 COpIAS 



LINGUAGEM BASIC 
48 K DEMEMORIA 
ATE 4 DRIVES 
SAlbA PARALELA SE 
RtAL 



P-720 



P-500 






VELOCIDADE 200 GPS 

MATRIZ7x9 

INTERFACE: 

PARALELA, 

SERIAL 



VELOCIDADE TOO CPS 
MATRtZ9x7 
INTERFACE: 
PARALELA 

SERIAL 



TRAQADOR 
GRAFICO 




8 PENAS 

Area de tragado 

10 X 15 POL. 
interface R&232 




ACESSORIOS 

software "MESAS •DIS- 
QUETES • ARQUIVOS • 

formulArios contC- 
nuos«estabilizadores 

de TENSAO • UNIDADES 
DE DISCO FLEXIVEL • ETC. 



APROVEITE! 

PROMOCdES ESPECIAIS • 
FINANCIAMENTO • LEA- 
SING • CONSORCIO • CAR- 
TOES DE CRCDITO: CREDI- 

CARD, NACIONAL, ELLO. 



filcres 

Filcres Importa^o.e Representapdes Ltda. 

Rua Aurora. 165 - CEP 0-J209 - Sao Paulo - SP 

Tetex 1131298 FILG BR - PBX 223-7388 - Ramais 2, 4, 

12, 18. 19 - Diretos: 223-1446, 222-3458. 220-5794 a 

220-9113 Reembolso- Ramal 17 Direto: 222-0016 - 220-7718 
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Com este programa para a linha TRS-80 voce podera obter, de forma r^pida eprecisa, 
uma analise da situagao economico-financeira de qualquer empresa 



Programe o balan^o 
de sua empresa 



Este programa foi desenvolvido 
para equipamentos compati'veis 
com o TRS-80 modelos I e III e 
tern per objetivo estabelecer um 
modelo de an^ise economico-financeira 
de acordo com os seguintes criterios: 

• OS parametros de analise sSo equani- 
mes para todas as empresas: 

• a andlise pode ser aproveitada para 
qualquer setor ou dimensSo de ativida- 
de; 

• comportamento economico-finan- 
ceiro das empresas e analisado com ba- 
se nos tres ultimos anos. 

programa examina o comporta- 
mento da situa9ao estdtica patrimonial 
(balance patrimonial) e o comporta- 
mento da dinamica patrimonial (de- 
monstrativo de lucres e perdas) das em- 
presas nos ultimos tres exercicios. Os 
parametros que dSo subsidies para esta 
an^ise sfo os QuocientesPatrimoniaise 
OS Quocientes de Varia?Ses Patrimoniais. 
Observa9ffo: case a empresa nSo possua 
tres balances, deve-se atribuir para os 
dados relatives aos anos em que nSo te- 
nha balance o valor 1 . 

Os Quocientes Patrimoniais sSo cal- 
culados com rela^ffo k situa^ao estdtica 
do patrimonio. Estes quocientes possibi- 
litam interpreta^Oes sobre as aplica95es 
de capital e sua origem (capitals pr6- 
prios e de terceiros). Os Quocientes de 
Variances, por sua vez, sao calculados 
com rela^So k situagffo dinSmica do pa- 
trimonio, fomecendo importantes infor- 
ma^Oes sobre a circula9ffo de capitals e 
sua rentabilidade. 



Dorley de Jesus Godarth 




QUOCIENTES PATRIMONIAIS 

1 ~ Participa^ao de terceiros 

Este quociente e' representado pela 
compara^So entre o capital prbprio e a 
soma do exig/vel circulante com o exi- 
gi'vel a iongo prazo. Esta compara?5o e 
importante para fins de analise, pois evi- 
dencia se os capitals de terceiros envoi- 
vidos na empresa superam ou nao os ca- 
pitals pr6pric)s. 

Quando o quociente for menor que a 
unidade. esti caracterizado que a em- 
presa utiliza mais recursos financeiros de 
terceiros do que recursos prdprios (esta 
situa^ao pode representar uma dlfi'cil 
solvencia). 



PT = 



Capital Proprio 



Passivo Real 



2 - Relofdo patrimonial global 

£ o quociente obtido atrav^s da com- 
paragSo entre o ativo real e o passivo 
real, revelando a propor^So global entre 
OS recursos ativos e as exigibilidades 
reais para com terceiros. 



PT = 



Ativo Real 



Passivo Real 



3 — Grau de saturagao fimnceira 

Considera os debitos de financia- 
mentos (Iongo prazo) pelo capital pr6- 
prio, denotando ate' que ponto houve 
comprometimento do capital pr6prio 
atual com diVidas contrai'das a Iongo 
prazo. Atraves deste quociente, pode- 
mos avaliar a poii'tica de investimento 
que a empresa adota. 

Exigfvel a 
Iongo Prazo 



GSP = 



Capital 
Proprio 



4 — Z. iquidez geral 

£ quociente obtido pelo agrupa- 
mento do ativo circulante com o realizd- 
vel a Iongo prazo, em confronto com o 
passivo circulante e o passivo a Iongo 
prazo. Este quociente revela a capacida- 
de da empresa em saldar as suas obriga- 
9(5es a curto e a Iongo prazo, fazendo 
uso dos recursos financeiros disponi'veis 
e venci'veis para o mesmo pen'odo. 



LG = 



Ativo Real izavel 

Circulante + (.ongo Prazo 

Passivo Exigfvel 

Circulante + Longo Prazo 



5 — Liquidez seca 

A liquidez seca e representada pela 
compara^So do disponi'vel mais os di- 
reitos realizdveis a curto prazo. Atraves 
deste quociente conhecemos a situagao 
de solvabilidade da empresa face ks suas 
obriga95es, depois de recebidos os eru- 
dites. 

Convem salientar que, para o cilcule 
deste quociente, no realizavel a curto 
prazo nSo e consideiade estoque. Em- 
bora fa^a parte desta conta. nae hi data 
certa de realiza^So, pois estamos consi- 
derando apenas os direitos realizdveis a 
curto prazo. 



LS = 



Ativo Cir- 
culante - Estoques 

Passivo Circulante 



6 — Liquidez corrente 

A compara^So entre o ativo circulan- 
te e o passivo circulante nos fornece o 
quociente de liquidez corrente. Este 
quociente representa a capacidade de so- 
lu9ao de compromissos venci'veis dentro 
de curto prazo. 



LC = 



Ativo Circulante 



Passivo Circulante 



7 — Grau de endividamento 

£ o confronto entre as exigibilidades 
e patrimonio ii'quido, evidenciande a 
responsabilidade deste com os compro- 
missos assumides a longo e a curto 
prazo. 



GE = 



Passivo Real 

Patr imonio 
L{ quldo 



QUOCIENTES DE 
VARIAgOES PATRIMONIAIS 



1 — Rota^do do capital proprio 

Esta rota95o e representada pela re- 
13950 entre a receita operacienal e o ca- 
pital pr6prio. Cada vez que a receita 
operacienal atinge valer do capital 
prbprio, significa que ele fei mevimen- 
tade uma vez. quociente da receita 
operacienal pelo capital pr6prio indicard 
quantas vezes este fei movimentado no 
exerci'cio. 

A rota9Se de capital pr6prio e' de 
grande importancia, uma vez que do nu- 
mero de rota9aes depende e resultade 
economico final. 



RCP = 



Receita 
Operac i ona 1 

Capital 
Propr lo 



2 - Rentabilidade do patrimonio Ii'quido 
Trata-se do quociente que revela a 
rela9ffo existente entre lucre Ii'quido e 
o patrimonio liquide aplicado na em- 
presa. 



RPL = 



Lucre L iqu i do 

Patrimonio 
Liqu ido 



3 - Rentabilidade de faturamento 

£ a rela9ae existente entre e lucre Ii'- 
quido e a receita operacienal da empre- 
sa. Este quociente revela a eficiencia da 
empresa em obler de suas atividades, sua 
margem de ganlio sobre a receita. 



RF = 



Lucro Liquido 

Receita 
Operaciona 1 



considera<;Oes 



Para a andlise de balan90 pode-se uti- 
lizar um grande niimero de indices. Isto 
nos dd uma margem maior de escelha, 
ou seja, podemos utilizar parametros 
com pouca ou nenhuma importancia 
conceitual. mas que apresentam situa- 
920 favor^vel, e preterir outros que. ape- 
sar de importantes, sao desfavordveis. 

Partinde desta premissa, analisaremos 
a situa9So economico-financeira das em- 
presas atraves dos dez quocientes ]i 
identificados, mais os que normalmente 
sSo aplicados em uma andlise. 

Os dez quocientes nos dSo subsidies 
suficientemente abrangentes para poder- 
mos avaliar o equili'brio economice-fi- 
nanceiro das empresas. Assim, podemos 
conhecer a liquidez da empresa a curto 
e a longo prazo; a proper9ae de recursos 
pr6pries aplicados; a participa9ao de ca- 
pitals de terceiros e a rota93o que se 
obt^m desses recursos; e comprometi- 
mento de seu capital pr6prio: e o patri- 
monio Ii'quido com as di'vidas assumi- 
das. 

De posse da situa9ao estitica patri- 
monial, situa9ao dinamica patrimonial e 
dos quocientes calculados com base nos 
tres liltimos balan90s, analista poderd. 
dentro de margens seguras eferecidas pe- 
los subsidies que acabamos de ver, ava- 
liar e desempenho e con 6mico-fi nanceiro 
da empresa nos ultimos anos, e ainda. na 
avalia9ao final, dependendo do desem- m. 
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PROGRAME O BALANCO DE SUA EMPRESA 



EMPRESR: E Q SUCESSO DE EMPRESfl LTDfl. 
RflMO ; INDUSTRin E COMERCIO 

ONRLISE ECONOMICfl-FINRNCEIRR 

HTIVO 19S1 



DISPONIVEL 
RERL CURTO PRflZO 
RERL LDNGO PRRZO 
IMOBILIZHCOEB 

PRSIVO 
CflPITflL SOCIAL 
NRQ EXIGIVEL 
EXIG CURTO PRflZO 
EXIG LONSG PRflZO 

flTIVD RERL 
PRSSIVG REAL 
PRTRIM LIOUIDO 

PRRTIC TERCEIROS 
REL PRTRIM GLOBAL 
6RRU SHTUR FINRNC 

LIQIUIDEZ SECfl 
LIQUIDEZ GERRL 
LI0UIDE2 CORRENTE 
GRflU DE ENDIVIDHM 

RENDfl OPERRCIONRL 
LUCRD BRUTO 
LUCRO OPERRCIONRL 
LUCRO LI QUI DO 

ROTflC CflPITHL PROP 
RENTHB PRTRIN LIQ 
RENTHB FRTURRMENTQ 



1982 



1933 



ESTRDO GERRL 



,BOh 



500000 


2000000 


9000000 


60000000 


85000000 


200000000 


1300000 


1000000 


2000000 


20000000 


30000000 


70000000 


2^000000 


35000000 


A5000000 


25000000 


41,0000000 


80000000 


35000O00 


30000000 


150000000 


10000000 


5000000 


60000000 


81800000 


IISOOOOOO 


281000000 


A5000000 


S5000000 


210000000 


36800000 


33000000 


71000000 


0.56 


0.A7 


0.38 


1.82 


1.39 


1.3A 


0.^0 


0.13 


0.75 


1.67 


1.05 


1.37 


1.37 


1.0^ 


1.00 


1.73 


1.09 


1.39 


1.22 


2.58 


2.96 


A5000000 


130000000 


300000000 


20000000 


^5000000 


100000000 


9000000 


7000000 


20000000 


AOOOOOO 


2000000 


15000000 


1.80 


3.25 


3.75 


0.11 


0.06 


0.21 


0.09 


0.02 


0,05 




MEDIO 


REGULAR 



PRRECER: 



Figura I 



penho da empresa, qualifici-la em um 
desses tres conceitos; 

• BOM 

• MEDIO 

• REGULAR 

Como exempio de aplica^S'o, supo- 
nhamos que uma empresa queira cadas- 
trar um fomecedor. Alem de outros pro- 
cedimentos. pode-se efetuar uma analise 
de balaiKjos sobre os tres liltimos exer- 
ci'cios para avaliar a situa^So economico- 
fmanceira deste fornecedor. 

A an^ise pode ser feila na tela ou vir 
impressa. Caso o usudrio adote a primei- 
ra op^o, ap6s a entrada dos dados soli- 
citados. serSo mostrados na tela do mi- 
cro OS Quocientes Patrimoniais e os 
Quocientes de Variances Patrimoniais j^ 
descritos anteriormente. Na segunda op- 
930, o programa fomecer^ uma an^ise 
impressa, com campos para qualificar a 
empresa como boa, media ou regular e 
espa90 para se dar o parecer sobre o for- 
necedor (veja figura 1). 

ObservaijSo: convem salientar o por- 
que do I'ndice de imobiliza^So nffo ler 
sido inclui'do no modelo. A exclusSo de- 
ve-se ao fato de que procurou-se elabo- 
rar um modelo de anilise que pudesse 
ter aplica9ao em quaJquer setor da eco- 
nomia no qual as empresas estao integra- 
das. inice de imobiliza^So e impor- 
tante para o setor industrial e de trans- 
formafffo, sendo, no entanto, de pouca 
ou nerihuma importSncia para o setor de 
prestagffo de servi90S. Acrescentando es- 
te parametro,estariamos prejudicando a 
universal idade do modelo, uma de suas 
principals caracteristicas. 



Dorley de Jesus Godarth i formado am Ad- 
ministrafSo de Emprssas pela Faculdade Ca- 
tdlica de Administra^So e Economia, e traba- 
Iha, desde 1978. na TEL EPA R - Telecomu- 
nicagdes do Parani S.A.. Curitiba, PR. 



Sequencia 

de entrada 

de dados 

no programa 



a) RazfTo social da empresa; 
b)Tipode atividade; 

c) Anos a serem analisados; 

d) Introdu9So dos valores das seguintes 
contas para cada ano: 
l)Disponivel 

2) Realizavel curto prazo 

3) Realizivel longo prazo 

4) ImobilizafOes (— depreciagOes) 

5) Estoque 



6) Capital social 
7)Naoexig]vel 

8) Exigi'vel curto prazo 

9) Exigi'vel longo prazo 

10) Ren da operacional 

11) Lucre bruto 

1 2) Lucro operacional 

13) Lucro liquido; 

e) Op?S^o de impressSo ou nSo. 
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Analise de balanqo 




iO 
20 
30 
40 
50 


'ESTE PRORHAMA EFETUA 


4NALISE DE BALANCO SOBRE 3 ANOS 


'PROGRAMA 


ELABORADO FOR DORLEY OF JESUS GODARTH - 


21/12/83 


QOSUB 65000 










55 


CLEAR 2000 










60 


Ali="ANALISE ECO^WMICA 


-FINAMCEIRA" 






61 


A2l=" 


ATiyo 


MMHM 


MMMM 


HHMM'-- 


62 


A3fc="DrSP0NiyEL 


HHHHMMHMHMM 


MHMHMHMMMMH 


HMMHMMttMMHM" 


63 


A4l="REAL CURTO PRASO 


HHHMMMMMMMM 


MMMMMMHMHMM 


MHHMMMMMHMH" 


64 


A54="REAI. 1_ 


ONGO PRASO 


MMMHttHttHHHH 


MMMHHHMHMMM 


HHHMMMMKMMM"' 


65 


A6l="IM0BILIZAC0ES 


MMttHHMMMMMM 


HHHMHMMMHHtt 


HHHMMttHHMMM" 


66 


A7l=" 


PASiyO" 








67 


A8t="CAPITAL SOCIAL 


HMMMMMMMMMM 


MMMMMMMMMMtt 


MMHHttHHMHMM'^ 


68 


A94="NA0 EXIGIVEL 


HMMMMMttHHMH 


MMMttttttHHMHH 


HMHMMMMttttttH" 


69 


fill="EXIG CURTO PRASO 


HttHHMHMMMMM 


MMMHMMMMMMM 


HHMMMMMMMMM" 


70 


B2%s="EXIG LONGO PRASO 


MHHMMMMMMMM 


MMMHttMMMMMM 


HHMMMMMMMHM" 


71 


B3*="ATiyO 


iEAL 


HttMMttttMMMMM 


MHMMMHHHMMM 


tt»tMBMMMM»MM" 


72 


B4l="PASIU0 


REAL 


HHMHMMMMtttttt 


HHHttMMMttttHtt 


MMMMMMMMMMH" 


73 


e5t="PATRIM 


LIQUIOO 


MMM»*t4HMMMMM 


MMMMMMMMMMM 


HMttttHMMMMMM" 


74 


B6t="PARTIC 


TERCEIROS 


MttttttHHHM.MM 


HItMHMMMM.HM 


HMHMHMttM.HM" 


75 


891="REL PATRIM GLOBAL 


MMMHMMHH.HM 


MMHMHMMtt.HM 


MMMHHHHM.ttH" 


76, 


C3$="DRAU SATUR FINANC 


MMHttMMMM.MM 


HtttttlltMMH.HM 


MMHMMMMH.MM" 


77 


C4t= 'LIQUIDEZ SCCA 


ttHHMMMHH.MM 


HMMMMMMM.MM 


MMMMHMHH.MM" 


78 


C5i="HQUIDEZ GERAL 


HMMMMMMH.MM 


MHMHMHHH.MH 


MMItttHMMM.HM" 


79 


C61="LIQUIDEZ CORRENTE 


HMHMMHMH.MH 


HHMNMMHH.MM 


MHMMMMMM.HM" 


80 


C9l="GRAU DE ENDIVIOAM 


MHHMMMMM.tttt 


HHHMMHMM.MM 


MMMMBMHM.MM" 


81 


D1S="RENDA 


3PERACI0NAL 


MHMtt44H»lt(MMH 


MHMMMMMflHMIt 


MMMHMMMHMHH" 


82 


325="LUCR0 


3RUT0 


HttttttMMHMHMM 


ttHMttMHMMHHM 


ttHMMHMMMMHH" 


B3 


D31="LUCR0 


DPERACIONAL 


MMMMMMMHMMH 


MtttlttHMMMHHM 


ttHMHHHMMHHH" 


84 


345="LUCR0 


-laUIDO 


HHMMItttHMMHH 


MMMHMKHMMHM 


HMHMMMMMMMM" 


85 


[>5t="R0TAC 


:APTAL PROP 


HHHMHMHM.MH 


ttttHHHMMM.MM 


MHMHHHMH.Mt*" 


86 


:)6S="RENTAB 


PATRIM LIQ 


HMMMMMMtt.MH 


MHHHMMMH. HH 


MHHHHMItM.HH" 


B7 


D7t="RENTAB 


FATURAMENTO «ttfl««HMH . MM 


MMMMMMMM.MM 


HMMHt4ttMlt.HM" 


88 


38S="ESTAD0 


GERAL 


...BOM 


lEDIO 


.REGULAR" 


B9 
90 
370 


E1%="PARECE 










/ 










, 


CLS 












380 


PRINT"QUAL 


A RAZAO SOCIAL DA EMPRESA 


" 




390 


INPUT E31 










40C 


PRINT 










410 


PRINT"QUAL 


RAMO DE ATIVIDADE " 






4?0 


INPUT E4i 










430 


FOR r=i TO 


3 








435 


PRINTsPRINT 








44C 


PRINT"QUAL 


ANO "jT; 








450 


INPUT A(I) 










46C 


NEXT I 










470 


CLS 






■ 




48C 


CLS 










490 


FOR 1=1 TO 


3 








495 


clf; 










500 


PRINT"QUAL 


DISPONIVEL DE 'jAd); 






510 


INPUT Bd) 










520 


PRINT 










530 


PRINT"QUAL 


REAL . CURTO PRAZO DE ', 


Ad); 




540 


INPUT C<I) 










550 


PRINT 










560 


PRINT'QUAL 


REAL. LONGO PRAZO DE "; 


Ad ); 




570 


INPUT D<I) 










5sa 


PRINT 










590 


PRJNT'-QUAL 


AS IMOBILIZACOES DE "fAd) 


. 




600 


INPUT Ed) 










610 


PRINT 










620 


PRINT"QUAL 


ESTOQUE 


DE ";Ad)j 






630 


INPUT F(I) 










640 


PRINT 










650 


PRINT'-aUAL 


CAPITAL 


SOCIAL DE ";A<I)- 




660 


INPUT G(I) 










670 


PRINT 










680 


PRINT-'QUAL 


NAO EXIGIVEL DE ";Ad); 






690 


INPUT HdJ 










700 


PRINT 










710 


PRINT "QUAL 


EXIGIVEL 


CURTO PRAZO DE 


'jAd), 




720 


INPUT Id) 










730 


PRINT 










74D 


PRINT"aUAL 


EXIGIVEL 


LONGO PRAZO DE 


'fAd); 




750 


INPUT J(I) 
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£ 



CPM 



ONDEVOCEENCONTRA 
ASOLUQAO! 



a MICROCOMPUTADORES 

D SOFTWARE 

DSUPRIMENTOS 

aSERVICOS 
DTREINAMENTO 



DISTRIBUIQAODOS 

MELHORES SOFTWARES 

EXISTENTES NO MERCADO 



DESENVOLVIMENTODE 
SISTEMAS ESPEClFICOS 



^^QfcJ Central Panamericona 
wi IVI deMJcroinformdtica 

Pqa. Clovis Bevilacqua, 121-2? and. - SP 
Tels.{011) 32-7752e 34-3057 



CIENCIA MODERNA 
COMPUTAQAO 

A Unica Especlalizada em Livros 
e Revistas p/ MicrocomputaQao 



NOVIDADES NACIONAIS: 



TK LemQranOo (MirshawUi 6 000 00 

TK Calculando iMifstiawiai 6 MO 00 

TK Diveritndo lUKshnka) . 6 OOO 00 

Pfogfamacan 1Ke2/TK-83/TK-e5/CP-200 
iHurley) 3 600 00 

< AplicKoes Serias pata TK-S^ t CP-20Q iLimai 9 ODO 00 
Basik TK - Vol I — Elemental (Rossimi 6 500 00 

< Cutso de Jogos em Ba$ic TK (Rossini) 4 500 00 
<DOi Aphcacoes para a seu Campuiadot 

Pessoat lSa«uscrii lOaOOOO 

A nova Revalucaa Industrial na eta das 

ComDuiadores (Osbomei 4 000 00 

Atquitelura Microprocessadures 

Miittocomcuiadoies Vol I (Knambalai 16 500 00 

Imciacao ao Basic (fox.i 6 700 00 

Baste Inlrodulono em sete hcoes ISeguraioi 9 DOO 00 

Usando CP'M Um Guia em Ensmo Programado 

lAshleyl 9 900 00 

introducao aos Micocomputado'es Vol I 

lOsboinei ti (MOO 

Progtamas Usuais em Basic pafa Sislemas 

Compativeis com o Aople II iPoolei B 000 00 

Piogtamas Usuais em Basic (Poole) 8 000.00 

Basic para cnanfas dos S aos 6tl Vol II 

l^abinskii B 800.00 

dB.'ii Sisicmas Retacional para Gerenc>amenlo 

OB Banco de Dados - CP/M Assembler 3 

Volumes 89 OOO 00 



Visite-nos ou pe<;a uma lisla do 

nosso estoque especifica para seu micro. 



AtencJemos lambem (jor Reeirib PcJStal k Vang 



Av Rio Branco. 156 — l0|a 127 — subsolo 
Rio de Janeiro— TelS 262-5723/240-9327 




I 



mk. 



• MICRODIGITAL — PROLOGICA 
■• TK 83 TK 85 TK 2.000 

• CP 200 CP 300 CP 500 

• PROGRAMAS COMERCIAIS E 
JOGOS 

• SUPRIMENTOS 



• INTROD. A MICROCOMPUTADORES 
BASIC I Ell I 

i • AULAS PRATICAS E TEORICAS 

• 2A3 ALUNOS POR MICRO 

• TURMAS OE 12 ALUNOS 

• APOSTILAS E CERTIFICADOS 

I • TURUAS ESPECIAIS PARA EUPRESAS | 

co^CRlMfU c 60n«Ki6 lUa | 

DEPTO. DE INFORM ATICA ! 

AV. BRIG. FARIA LIMA. 2178-TEL.: 813-3338^ 

PINHEIROS — SAO PAULO - SP > 

ESTACIONAMENTO | 

i ZONA AZUL I 



PROGRAME O BALANgO DE SUA EMPRESA 



7&D PRINT 

770 PR1NT"QUAI. A RENDA OPERACIONAL DE ";A(1J| 

7Bn INPUT KCI) 

790 PRINT 

800 PRINT"QUAL LUCRO BRUTO OF "jACD; 

8i0 INPUT L<I1 

820 PRINT 

R25 PRINT'QUAI. LUCRO OPERACIONAL DE "jAd); 

826 INPUT M(I) 

027 PRINT 

830 PRINT"QUAL LUCRO LIQDIDO DE ".-AlDj 

840 INPUT Nd) 

940 0(l)=fl<Ii+C(I)+D<I)+Ea) 

950 P(I) = Ta)+J(I) 

960 Q( I ) = 0( n-P(I) 

970 R<I)=H(I)/P<I> 

980 S<I)=0(I)/P<1) 

990 T(n=J<IV/H(n 

1000 UCl)=((B(I)+C»l>)-F(r>>/ICI> 

1010 g<I)=CB(I>+C(T)+D<I))/P(l) 

1020 xa) = (B<I>+C(I))/I<I) 

1030 Z(I)=P<I)/a<I> 

1040 Y(U=K<I)/H<I) 

1050 YYCT)=N(I)/Q(I> 

1060 iJua>=N'r>/K(i) 

1070 NEXT I 

lo9n PKINT 3 5i2."y0CF. DESEJA QUE A ANALTSE SEJA IMPRESSA STM(S) OU 

NAO(N) "J 
1100 fNPUT St 
1110 IF S4="S" GOTO 1580 
1120 CL=i 

1130 PHINT'CHPRESA! ";E31 
1140 PRINT"RAMO ! "):E4% 
1150 PRINT 
11^0 PRINT Al* 
li7a PRINT 

J180 PRINTUSING A2$; A( 1) ; A ( 2 ) ; A< 3 > 
1190 PRINT 

12D0 PRINTUSING A3t j B ( i ) ;B < 2 ) jB < 3) 
1210 PRINTUBING A41 ;C< 1 ) ;C (2 ) !C< 3> 

1220 PRINTUSING A5i ;D( i ) (D< 2 > f D (3) 
1230 PRINTUSING A64; E< 1 ) ;E< 2) ;E( 3) 

1240 PRINT 

1250 PRINT'TARA CONTINUAR TECLE <S> " ; 

1255 S»=INKEYl:IF(Sl="S") THEN 1260 ELSE 1255 

1260 CL3 

]270 PRINT A74 

1280 PRINTUSING A8t ; ( 1 ) [ G<2) ;G(3 ) 

1290 PRINTUBING A91; H( 1 ) ; H( 2 ) ;H(3) 

1300 PRINTUSING B 1 %; I ( 1 > ; 1 < 2 > ; I ( 3) 

i310 PRINTUSING B21 f J( i ) ; J<2) ; J( 3> 

1320 PRINT 

1330 PRINTUSING 831; 0( 1 ) ;0t 2 ) ;0 I 3) 

1340 PRINTUSING 041; P < 1 1 ; P < 2 ) ; P < 3) 

1350 PRINTUSING B5i;Q< 1 ) j 8 ( 2 ) ;Q < 3 ) 

1360 PRINT 

1370 PRINTUSING B6t jR < i ) f R < 2 ) jR <3) 

1380 PRINTUBING B91 ;5( i ) jS( 2 ) ; S( 3> 

1390 PRINTUSING C3if T ( 1 ) tT t 2 ) jT <3 ) 

1400 PRINT 

1410 PRINT"PARA CONTINUAR TECLE <S) "; 

1420 54=INKEYl:IF<Sl="S"> THEN 1430 ELSE 1420 

1430 CLS 

1440 PRINTUSING C41. f U< 1 ) -U( 2 ) ;U(3> 

1450 PRINTUSING C5%ry < 1 ) ;" <2 J j^O) 

1460 PRINTUSING C6I5 X< 1 ) f X C 2 ) ; X(3 ) 

1470 PRINTUSING C91 t Z ( 1 ) ;Z < 2 ) ;Z < 3) 

1480 PRINT 

1490 PRINTUSING Dit jK < 1 ) ; K ( 2 ) jK ( 3 ) 

1500 PRINTUSING D2%; L ( I ) ; L < 2 ) ;L ( 3) 

1510 PRINTUSING 03* ; M( D ; M< 2 > ;«< 3) 

1520 PRINTUSING D4i;N( i > jN C 2 ) jNO) 

1530 PRINT 

1540 PRINTUSING DSij Y < 1 ) t Y<2) j V<3) 

1550 PRINTUSING D6S f YY < i ) ; YY<2 ) j YY<3> 

1560 PRINTUSING D7t ; WU(1 ) ;UU( 2 ) ; IJU< 3 ) 

1561 PRINT"PARA CONTINUAR TECLE <S> "; 

1562 St=INKEYt!rF(Sl="S") THEN 1570 ELSE 1562 
1570 GOTO 2070 

1 SflO CLS 

1590 PRINT a 512,"P0SICI0NE A IMPRESORA E TECLE <S> "( 

1600 Sl=INKEYl:IF(Sl="S") THEN- IMO ELSE 1600 
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1610 LPRINT"EMPRESA: "-Eai 

1620 LPRINT"RAMO s "jE4t 

1630 LPRINT 

1640 LPRINT A15 

1650 LPRII^T 

1660 LPRINTUSING A2*; A( 1 ) ; A<2) ; A(3 ) 

1670 LPRINT 

1680 LPRINTUSING A35 [B < 1 ) ;B ( 2 ) ;B ( 3) 

1690 LPRINTUSING A41 j C< i ) f C (? ) ;C<3) 

1700 LPRINTUSING A5« ; D< t ) ; D( 2) ;D( 3) 

1710 LPfiTNTUSING A6lf E( 1 ) ,E< 2) jEC 3> 

1720 LPRINT A7t 

1730 LPRINTUSING AS* ; G( I ) f R( 2 ) ;ri(3> 

1740 LPRINTUSING A9t fH< 1 ) ; H< 2 ) -H(3) 

1750 LPRINTUSING B 1 1 ; 1 1 1 ; ; ] (2 ) 5 I C 3) 

1760 LPRINTUSING R2t -J< I > - J< 2) j J(3> 

1770 LPRINT 

1700 LPRINTUSING B3t j 0( 1 ) f 0< 2 ) t0<3) 

1790 LPRINTUSING B45 jP ( 1 ) ;P (2) ; P (3) 

IBOO LPRINTUSING 651-9 ( 1 ) ,Q<2> ,9<3) 

1810 LPRINT 

1620 LPRINTUSING B61;R ( 1 ) ;R < 2 ) ; R (3) 

1830 LPRINTUSING B91;S ( 1 ) !S(2 J ;S<3) 

1840 LPRINTUSING C31; T( I > j T (2 ) j T<3> 

1850 LPRINT 

1860 LPRINTUSING C41;U( 1 ) ;U( 2) tU(3> 

1870 LPRINTUSING CSl-y ( 1 ) -U(2) -U(3) 

1880 LPRINTUSING CAt t X( 1 ) ; X 1: 2 ) ; X<3) 

iB'".U LPRINTUSING 094; Z<i ) ; Z(21 -ZO* 

1900 LFRINT 

1510 LPRINTUSING DISjK ( 1) ;!< 1 2 ) ;K < 3 ) 

1920 LPRINTUSING D21;L < 1 ) -L (2 ) ;L <3) 

1930 LPRINTUSING D31;M( 1 ) f M( 2 ) f H(3) 

1940 LPRINTUSING D4I;N< 1 ) -NO) ;Nf 3) 

1 950 LPRINT 

1960 LPRINTUSING DSl; Y ( 1 ) - Y ( 2 > - Y( 3 ) 

1970 LPRINTUSING D61; YY( 1 > ; YY (2) ; YY< 3> 

1980 LPRINTUSING D7t;UW ( 1 > iUU< 2) ; WU( 3 ) 

1790 LPRINT 

2000 LPRINT 081 

2010 LPRINT 

2020 LfRINT Ell 

2030 FOR X=I TO 15 

2040 LPRINT E2I 

2050 NEXT X 

20c,0 LPRINT 

2070 CLS 

2080 PRINT"0UTRA ANALISE ,SIM<S) OU NAO(N» 

2070 INPUT SI 

2100 IF 51= 'G" GOTO 55 

2110 PRINT 3458, "FIM DE PROGRAMA" 

2120 GOTO 6S380 

65000 CLSsGOSUB 65010 

65005 GOTO 65270 

A5010 CLS:PRINT:PRINT 

65020 FRZl=' 

65030 PRZ1=" 

65040 PHZ1=" 

65050 PRZ1=" 

65060 PRZ1=" 

65070 PRZt=" 

65080 PRZ1=" 

65090 PRZ1=" 

65100 rRZl=" 



":G0SUB65t40 
ANALISE DE BALANCOS "IG0SUB6S140 

"iG0SUB65i40 
ELABORADO POR : "»G0SUB65140 

":G0SUB65140 
DORLEY DE JESUS GOOARTH "1G0SUB65140 

'':G0SUB&5140 
CURITIBA,26 DE DEZEMBRO 1783" sGOSUBASlAO 
"!G0SUB65140 

"SG0SUB65140 



65110 PHZ4=" FONE : <041) 222-6953 

65120 PRZI=' ":G0SUB6514n 

65130 FOR AS=1 TO 1000:NEXT ASsRETURN 

65140 FOR AZ = 1 TO LEN ^PR Zl t :PR INT MIDKPRZl, AZ , 1 > f :FOR f\\ = \\ TO IT,\ 

NEX1AX,AZ:PRINT:RETURN 
65270 CLS 

65280 PRINTsPRINTJPRlNT 

65290 PRINT'ESTE PROGRAMA FORNECE UMA ANALISE ECONOMICA-F INANCEIRA 
65300 PRINT"SOBRE OS 3(TRE5) ULTIMOS BALANCOS DE UMA EMPRESA." 
65310 PRINT'XASO A EMPRESA NAO POSSUA 3 BALANCOS , DEVE -SE ATRIBU3H ' 
65320 PRINT"PAHA OS DADOS DOS ANOS QUE A EMPRESA NAO TENHA BALANCO' 
65330 PRINT"0 VALOR (1). " 
65340 PRINTiPRJNTsPRINT 

65350 PR1NT"PARA CONTINUAR TECLE <S)"f 
65360 S1=INKEY1JIF(S%="S")THEN 65370 ELSE 65360 
65370 RETURN 

65380 PR INT SPRINT: PR INT SPRINT! PR INT 
65390 END 




NEW SJ APPLE 



■ INTERFUCU PARALLEU QMBC* PtB Sr*l**KIE LOW COST U.S.! TS 

• MTERFikCCUPIUULlELA SUPER PRINT Incluu cno2 mL Mttam. Bullw 
2H k, MC |lp«<lcw) ttinvvill U itMnin] U.S.* <0S 

• TEUMSTE* SCHEDl INTERrACCI* PER TELECAMEfl* (Sotmn dl M»- 
nvanlo: OUFPAK cod. 3001 U.S.t 39S 

• SCHEDA 1S fULOBYTES HEHORY CARD IPASCAL) U.S.t 78 

• SINOOLO DRIVE i' M* \m K U.S.t 410 

• SINOOLO DRIVE S lit l« K SUM U.S.I 410 

• OOPPtO CONTROLLER PER DRIVE S' • SLIM U.S.I 70 

• DOPP)0 QRJVE KIXi SLtM DOPPIA DENSITA. CAPACTTA TOTALE tSS-MO B 
incluu ilimtflittort nllcMrtf • doppM conlroUv U.S.t t.SAS 

• SOFTWARE PER OPERARE IN PASCAL E CP/M pM iM» Dodpio [Mm Uns 

U.S.I 37 

• DOPPIO DRIVE ten& SUM DOPnA DENSITA. OOPPIA FACCIA cipKlli IdIM 

uH*eMiri*i U.S.t 1.SO0 

• SCHEOA OICICODER INTEHFACCtA PER ENCODER OHICI i CANALI lino • 
IM MILIONI Dl PUNTI SOFTWARE INCLUSO U.S.t SM 

■ SCHEDA ESPANSIONE III H U.SJ 290 

• CONVERTITOHE ANALOGICO OIGITALE t a BIT It CANALI U.S.! 210 

• CONVERTIIOREAULO<ilCODiaiTALEiti:SIT.4[:A>MUDIINPUTE4CON. 
TATTI Dl RELAIS CON OROLOCID C41END4RI0 U.S.t 340 

• CONVERTIIORE Am A i; BIT CUAOAGNO PROGRAMHABILE. 2 CANALI IN 
POT OIFFEREHZIALL AMRUEhCATORE A OUAOAQNO PROGRAMHABILE 

U.S.t 375 

• CONVERTITORE AID 12 BIT VELOCE (2MIS)1 CANALI 01 INPUT COMPLETA. 
UENTE OIFFERENZIAU. AMPLIFICATORE CON QUADAGND PROGRAMHA 
BILE U.S.S WD 

• SCHEOA n COIONNE COMPATIBILE CON TUHI I LIMOUAGGI BASIC 
PASCAL, CR»M. FORTRAN APPLE WHITER VISICALC. ECC U.S.t 250 

• BUFFER Dl LINEA PER STAHPHHIE IN C0MTENI70RE ESTERNO INCLUSI 
2 CAVI E CONHETTORE »lllilENI*TORE moa i6 K CENTRONICS TO 
CENTRONICS ESPANDIBtLE * 4( 9* « HS232 IEEE 4M U.S.t 270 

• INTERF*CCI» SERIALE BS 7)2 01 COMUNICAZIONE CON BAUO RATE 
SELEZIONABILE. INCLUSO CAVO E DB 2i U.S.t TS5 

• SCHEDA ZK CPiW INCLUSI 2 VOLUUI E SOFTWARE U.S.I 224 

• SCMEDA PAL PER COLIEGHMENTO MONITOR COLOHI U.S.t 100 
SCHED4 VGP VECTOR GRAPHIC PROCESSOR HISOLIZIONE SI2 1 SI2 PIXEL 
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U.S.I 1.060 
U.S.t 2.120 
U.S.t 3.4S0 
U.&.I 4.8&0 

U.S.1 3ao 

U.S.t 6S 
U,S.I BS 



2 PAGINE Dl MEHORIA Imonocroinaticii 

• SCHEDA VGP M i COlOBI INCLUSO MOST ADAPTOR 

• SCHED« VGP 64 H COLOfll INCLUSO HOST ADAPTOR 

• SCHEDA VGP U WM COLORl INCLUSO HOST ADAPTOR 

• OPZIONE PER VGP W EXTERNAL STNC INPUT 

■ SOFTWARE Dl UTHIIIES PER VGP MONICROMATIC* 

• SOFTWARE 01 UTILITIES PER VGP H COLORl 

• PIASTRA CPU 4a K MEMORIA RAW MICROPROCESSORE U02 U.S.I 350 

■ TASTIERA ALFANUHERICA CON PAD NUUERICO REPEAT AUTOMATICOSU 
Tuni I TASTI U50T4 ASCII 1 BIT U.S.t (30 

• AUMENTATORE 4 S -S V. • 12 ~t2V. CON FILTRl ANTIIHSTURBO TENSIO- 
NS ALIMENTAZIONE 220 VOLT 50 HZ 10 AMP. U.S.I 95 

• AUMENTATORE TAMPONE CON BAHERIE RICAHICA AOTOMATICA 

US I 230 

■ CABINET METALLKIO INCLUSO KIT Dl HONTAGGIO RER ELAB. U.S I 115 

• MICROEUBORATORE APPLE COMPATIBILE COMPLETO MONIATO E 
COLLAUDATO A VENIILATIONE FORZATA. INCLUSI 3MANUAU U.S.I B20 

• PROLUNGA SLOT LUNGHEZZA CA IS cm. ABBINAULE A OUALUHOOE 
SCHEDA IN COMMERCtO U.S.t 42 

• GEMEMTORE D( PAREHN PER DEMO STAMPANTl, PLOTTERS. ECC. 
H)EALE PER COMPUTER SHOP EFIEHE DA I A 4 K EPROM U.S.1 70 

• TELECAMEU PKIFESSIONALE |M> SCHEDA TELERASTER AIM. ZS V. CON 
OBIEniVO It MM. CON 0<AFRAMMA U.S.t 350 

• HARD OeSK WINCHESTER S M. BHE U.S.I 3.575 

■ HARD OISK WINCHESTER ID H BTIE U.S.t 4.300 

■ HARD OISX WINCHESTER 20 U. BTTE U.S.t S.775 

• TAPE STREAHING BACK-UP 10 M. BHE U.S.I 3.485 

■ HONnOflFOSFORIVERIHRACKMETALllCOt" U.S.I 135 

> MONftOR FOSFORI VBVN RACK MEIALLICO 12' U.S.t 160 

• MONITOR COLORl MCIU8A SCHBU INTERFACC1A COLORE U.S.t 550 
>PLQnERWATANABE«PBMKK>taUTOA] U.S.I I.D24 

> JOYSTICK CON CAVO Dl W OAHE E DUE INTERRUHORI U.S.I 43 



IMPRESSORAS OKI SERIE MICROLINE 

•Ml«|80e|»Md|S£MIGRAF)CAFRIZ. . P.FEEO * RULLO PARALLELA 

U.S.t 385 

■ ML >2IA 1120 c;il N cl] SEMIQRAFICA FRIZ, t P. FEED PARAUIU • RS 

232 1200 BAUD U.S.! 5S0 

• Ml 92 HBO cpi to cl| GRAFICA N.LO. FRIZ. . P FEED PARALLELA 

U.S.1 780 

• ML OIK {\X. cpi 133 cl) SEMHia FRIZ + TRATTORE PARALLELA t RS 
232 1200 BAUD U.S.t WO 

• ML nOBOcpi' 132 d) GRAFICA -N.LO. 'FRO. 4 TRAHORE PARALLELA 

1.1*0 

• ML I4<IM cm lUcDGWFICA B N.LQ. FRIZ. * rRAHORE PARALLEU 

U S.I > 270 

• OPZIONE GRAFICA PER ML 12IA - BlIA INCLUSO MANUALE U.S.I 30 

• INTERFACCIA IEEE 418/011 U.S.S ISO 

SOFTWARE PERTEL PER APPLE 

• HINUSCDLE I MAIUSCOLE PER APPLE II U.S.t 36 

• EDITOR C.N SOFTWARE TRANSCODIFICA EU 150 EDITING Dl BANOA 
PERFORATA PERF jlETTURA U.S.t 485 

• GRAFPAK HARO COfV VIDEO PER STAMPANTl U.S.t 45 

• MAIUNG UST IIDOO NOMINATIVI PER OlSCHETTOl U.S.I 35 

• CALCOLO AREA CON JOYSTICK PER SCHEDA TELERASTER U S.S SO 

• POIENTE SOFTWARE GRAflCO INTERAniVO INCLUSO CONTROLLER 
EMANUAU U.S.I t.230 

• SOFTWARE 01 OUTPUT PER PLOTTER WAT AKABE CALCOMP HP U.S.I 520 
. BtBLlOTECA SOFTWARE PER AfiCHITEnURA U.S.t 75 

• BIBLIOTECA SOFTWARE PER IDRAUUCA U.S.t 75 

• BIBLIOTECA SOFTWARE PER ELETTRONKA U.S.I 75 
- BIBLIOTECA SOFTWARE PER CMIMICA U.S.I 75 

TODOS OS PRODUTOS DESCRIUINADOS SAO CONCILlAVEIS COM APPLE 
ORANGE LINITRON ECC. PROCURAMOS DISTRIflUIOORES 
CONDICONES ESPECIAIS PARA REVENDEDORES E INTERESSADOS COMO 
-HOBBr. CAlAlOCO Ht MAIS OE M PRODUTOS. SOLICiTEHHOS. 
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pebifehicme 
telecomljnicaiiomi 



VtA ORMEA, 99 • CEP. 10126 TORINO (ITALY) 

TEL. (011)655 865- 6S157fl 
TELEX 224243 PEPTEL ■ I 

1 HOMI APPLt APPIE COMCurtH E IL SIHBOLO APPLt 
tONO MADCHI REQISIHATI DALLA SOCIETA APPLE COMPUTER INC. 



Economizar 4 a ordem do dia. Portanto, ganhe tempo na grava^ao e leitura 
de dados em fita cassete nos micros da linha TRS-80 Modelo I 



Otimiza^ao de arquivos 

em cassete 




Oprocesso que apresentamos 
neste artigo Uata-se de uma 
expUca9ao, detalhada e com 
exemplos de facil compreen- 
sao, a respeito da concatenafao destrings 
antes da gravafao de dados na fita cas- 
sete e da descon eaten afao destas strings 
ap6s a leitura. Isto, na realidade, 6 bas- 
tante simples, mas proporciona grande 
economia de' tempo, que ^s vezes chega 
a um quinto do normal paia a giava^o 
e leitura de dados em cassete. 

Este procedimento tamb^m pode ser 
tornado por quem possui disco, para a 
agilizagao dos arquivos seqiienciais. 

PROCESSO 

Em primeiro lugar, deve-se ter uma 
aten9ao especial na grava9ao dos dados, 
pois o computador, ao emitir as infer- 
mafOes, n^o verifica o status do grava- 
dor e. se a fita nao for colocada desde o 
ini'cio com sua parte m^netica em con- 
tato com o cabe^ote do gravador, as 
primeiras mforma9oes enviadas serao 
perdjdas. 

Suponhamos que em nosso progra- 
ma temosas variaveis AS,B$ e CS, que 
representam, respectivamente, o nome, 
o teiefone e o CEP de uma determinada 
pessoa: 

A$="Joao Jose da Silva": 

B$="249-4649":C$="04716" 

Normalmente, gravamos os dados as- 
sim: PRINT # -MS,BS,CS, ou seja. 

tres variaveis distintas. Mas se transfor- 
mamos as tres variaveis em uma s6,gra- 
vamos apenas uma, o que resulta numa 
grande economia de tempo, piincipal- 
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Roge Rosofini 



mente se temos cinco ou seis variaveis. 

Para juntarmos as tres variaveis em 

uma so. temos de introduzir caracteres 

de controle entre elas, caracteres esses 

?[ue nao sejam acessi'veis ao usuario {gra- 
icos ou especiais). Fazemos isso da se- 
guinte maneira: 

Z$=A$+CHR$ (143)+B$+CHR$ 
(143J+C$ 
Deste modo, nossa variavel ZS fica: 

Z$="Joao Jose da Silva 
■249-4649B04716" 

hm caso de variaveis numericas, de- 
vemos converte-las para string, usando 
STRS. 

Para gravar nossas tres variiveis nu- 
mericas anteriores. usamos apenas 
PRINT # -l^S. Entretanto, deve-se 
tomai cuidado para que o comprimento 
de ZS (no caso) nao ultrapasse 236 ca- 
racteres. Para lermos ZS, utilizamos 
INPUT # -I^S e. em seguida, inicia- 
nios a descom pacta 9^0 das variaveis, ve- 



10 INPUT#-1,Z$ 

20 FORA-1TOLEN{Z$) 

30 IFMID${Z$,A,1)=CHR$(143) 

THEN4 0ELSENEXT 
40 A$=LEFT$(Z$,A-1) :A=A+1 
50 F0RB=ATOLEN(Z$) 
60 IFMID${Z$,B,1)=CHR$(143) 

THEN7 0ELSENEXT 
70 B$=MID$(Z?,A,B-A-1) :B=B+ 

1 
80 FORC=BTOLEN(Z$) 
90 IFHID$(Z$,C,1)=CHR${143) 

THENlGOELSENEXT 
100 C$=RIGHT$(2$,LEN(Z$)-(C+ 

D) 



rificando carrier por car^ter de ZS, atd 
encontrarmos o carater grafico 143. 
Acompanhe este processo na figura 1. 

Conv^m saber que na linha 40 (figu- 
ra 1) foi usado LEFTS porque se trata- 
va do ini'cio da variavel ZS; nffo haven- 
do nada k esquerda disso, nao foi neces- 
s^rio usar MIDS. mesmo acontece 
com a linha lOO.onde usamos RIGHTS, 
per ser o final da variavel ZS . 

Em termos praticos, se tiv^ssemos vi- 
rias variaveis. fariamos da seguinte ma- 
neira: 

LEFT$ 



n X MID$ 



RIGHT$ 

£ interessante. tambem, que se utili- 
ze velocidade alta de grava9ao, obvia- 
mente nos computadores que a possuam. 
Se programa tiver sido gravado em ve- 
locidade baixa. podemos mudar isso 
com POKE 16913,1 (zero para baixa e 
diferente de zero para alta). ■ 



Rog^ Rosolini tern 16 anos, cursa a 2? s4riB 
do 2P grau e 4 responsive/. Junto com Fernan- 
do Coura. tamb4m de 16 anos, pela LOGI- 
CAL SOFT, uma empresa que desenvolve pro- 
gramas de aplicaqdes: dom^sticas. jogos de 
apao e aventura, todos em versao cassete. 
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E NESTE ESCRTTORIO 

OUESEFECHAM 

OS MELHORES NEGOCIOS 



No Brosil de hoje, nenhuma empresa 
pode perder a oportunidade de mostror 
suas novas ideias, novos equipamentos 
e servii^os no maior centro economico do 
Pais: Sdo Paulo. 

O cominho esta aberto para voce na 
11? FUSE, de 20 a 24 de junho. Alios, essa e a 
epoca mals propicia para investir e acompanhaf 
as atuais conquistos desse mercado. 

Essa Feira foi cuidadosamente planejada para 
ser o mais lucrative encontro entre a oferta e a 
procura, reunindo milhores de diretores, gerentes, 
empresdrios do Brasil e do exterior, que estardo 
presentes para conhecer e fechar negocios 
que proporcionem aumento de qualidade e redu^do 
custos operacionais. 

No Parque Anhembi voce conhecerd as ultimas con- 
quistas na area de iniormdtica, telecoxnunica^des, moveis 
e instalagdes, brindes, consultoria e c^sessoria, entre outrosi 

Para quem quer fechar negocios de milhdes, um aviso: 
estd na hora de reservar o seu 
estande e garontir o lugar que 
sua empresa merece. 

Setores: 

• Processamento de Dados 
e Teleprocessamento * 
Comunica^do eteleco- 
munica^do • Arquivo, 
Classiiica^do © Micro- 
filmagem • Instala^des e 
Mobilidrio * Mdquinas de 
Escrever, Calculo e 
Contabilidade ■ Copios, 
Impressdo, Acabamento e 
Endere^amento * Maquinas 
Graf icas e Materials • Controles 
Visuals e Relogios • Seguran^a e 
Saiide • Artigos de Papelaria, 
Desenho e Escrita * Consultoria e 
Assessoria • Brindes • Services em 
geral • Publicagoes • Ensino e Pesquisa v 

• Bancos e Flnancelros. 



1 1? Feira Internacional de UtenstHos e Servi<;o5 de Escritorio. 

Hordrio: das 9 ds 18 horas 

Patrocinio: Febraban - Federa^do Brasileira das Associa<;de5 de Bancos 

Fenaban - Federaijdo Nacional de Bancos 

Promo^do: Alcantara Machado Feiras e Promoijdes Ltda. 

Hua Brasilio Machado. 29 - Sdo Paulo, SP - CEP 01230 - Telefones: 826-9111 e 87-1323 - Telex (Oil) 22398 AMCE BR 



Evento autorlzado e oficialitado pelo CDC. 
da MiniMcrio da Induslria e do Comercio. 
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radada /US 



Use seu micro da linha TRS-80 para automatizar os seus QLSs e mantenha 
atualizado o seu Livro de Reg/'stro de Comunicados com este... 

Arquivo de comunicados 



Este programa foi desenvolvido 
com objetivo de facilitar a ta 
refa do radioamador no preen- 
chimento de cart5es QSL e do 
Registro de Comunicados (LOG), e esti 
pronto para ser utilizado em micros da 
linha TRS-80, versao disco com impres- 
sora. Os colegas que nSo possuem esses 
dois perif^ricos. entretanto. tamb^m 
poderao aproveita-lo mendiante peque- 
nas modifica§6es: 

. OS que nao disp5em de impressora de- 
vem eliminar a op^o 4 do menu e mo- 
dificar a opfao S para a saida em video, 
ao inves de impressora; 
. quem so dispoe de versao cassete, bas- 
ta modificar as op96es 2 e 3 do menu 
para que passem, respectivamente, a gra- 
var e carregar arquivos em fita cassete 
(isto 6 possivel porque o programa traba- 
Iha com todos os dados "em mem6ria"). 
Observafao: para facilitar as eventuais 
alterafOes o inicio e o t^rmino de cada 
uma das rotinas de que se constitui o 
programa estao nitidamente assinaiados 
na listagem. 

Vamos entao aos detalhes do progra- 
ma. Ele possui cinco modos de opera9ao 
ofientados poi menu, o qual pa&so a des 
crever. 



l.ARQUIVAR 

Nesta op^ao, ser^ inicialmente ques- 
tionada a quantidade de comunicados a 
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serem arquivados Tendo em vista o di- 
mensionamento das matrizes, o niimero 
de comunicados nao poder^ exceder a 
100. mas uma pequena altera^ao na li- 
nha 50 permitira aumentar ou diminuir 
esta quantidade. A seguir, o micro passa 
a solicitar, na terminologia mundialmen- 
te adotada. os dados referentes a cada 
comunicado. 

O programa nao foi desenvolvido es- 
pecificamente para registrar comunica- 
dos ao mesmo tempo em que est - sen- 
do realizados, por uma linich "-azao: sem- 



TD RADIO ! PY5CIG 

DATE : 21/04/84 

U.T.C 2-URY R.S.T M.H.Z 

0408 SSB 59+ 14 

RLCIONE CURITIBH PflRflNfl 



TO RHDIO : PYSCLU 

DPTE ! 21/04/84 

U.T.C 2-UnY R.S.T M.H.Z 

0409 SSB 59+20 21 

flLCIOXE CURITIBfl PRRHKH 



TO RODIO ! PY5C1F 

DOTE : 21/04/84 
U.T.C 2-URY R.S.T M.H.Z 
0410 CU 599 21 
BHTONIO LOHDRIHO PORflKfl 



Fi^ra 1 - Etiquetas autoadesivas 



A /done Sperandio Junior 



pre tive por norma registr^-los i parte, 
para prevenir uma eventual falta de ener- 
gia e a conseqiiente perda do registro 
dos comunicados. Nada impede, por^m, 
que OS comunicados sejam registrados 
simultaneamente: basta adaptar o pro- 
grama para tal. 

Apos termino desta op^Sb, o pro- 
grama retoma ao menu, quando entao o 
operador pode, conforme seu desejo. 
imprimir as etiquetas a serem coladas 
nos QSLs com os dados de cada comu- 
nicado (op9ao 4); imprimir uma folha 
do Registro de Comunicados (op^ao 5); 
ou, se preferir, guardar todos os dados 
para posterior utilizajao, gravando-os 
em disco (op^ao 2). 



2 GRAVAREMDISCO 

arquivo aqui utiHzado i seqiiencial; 
micro questionara o nome do arquivo, 
qual nao deve exceder a oito caracte- 
res. Sugiro que o nome seja iniciado 
com as letras QSO, seguidas do mimero 
de ordem do arquivo, da letra Q e de um 
ou dois algarismos que representem a 
quantidade de comunicados arquivados. 
Por exemplo, QS03Q12 significaria o 
arquivo de QSOs niimero 3, contendo 
12 comunicados. Em seguida, o micro 
perguntar^ a quantidade de comunica- 
dos a serem armazenados, o que deve ser 
respondido com aten^ao para evitar pro- 
bleihas futuxos. 

MICRO SISTEMAS, Junho/84 



3. CARREGAR DO DISCO 

Esta op?ao destina-se a canegar do 
disco dados anteriormente gravados. 
Pressionando-se a teclji 3, surgir^ no vi- 
deo o diret6rio do disco em BASIC, cuja 
funfao i facilitar a identifica^ao dos ar- 
quivos existentes e a sele^ao do que in- 
teressa no momento, bem como a iden- 
tifica^So da quantidade de comunicados 
arquivada no mesmo. Seria interessante 
utiJizai um linico disco para o programa 
e todos OS arquivos. 

Ao termino desta etapa, da mesma 
forma que ao termino da op^ao I. todos 
OS dados referentes a um arquivo de co- 
muriicados estarSo na mem6ria, o que 
toma disponi'veis para uso as op^oes 
4eS. 



4. PREENCHIMENTO DE QSLs 

Aqui se da a impressao das etiquetas 
autoadesivas, contendo os dados de 
QSOs, a serem colocadas nos cartSes 
QSL (ver figura 1). A formata9So da im- 
pressSo 4 para etiquetas em uma coluna 
de 2.40x9.00 cm, mas voce pode modi- 
ficd-la facilmente para o tipo de etiqueta 
de que dispuser e para aproveitar ao md- 
ximo OS recursos de sua impressora, tais 
como caracteres expandidos, comprimi- 
dos ou grificos. 

Nota de PYID WM: se voce conseguir 
formuldrio continuo de maior gramatu- 
ra, tipo cartolina, poderd modificar esta 
opgao para imprimir, em vez de etique- 
tas. todos OS seus cartoes; alem de uma 
substancial economia - o prego de um 
QSL esta proximo da estratosfera - o 
sucesso sera too garantido que muitos 
dos seus amigos possivelmente encomen- 
dardo a voce a confecg^ dos sots QSLs, 
proporcionando-lhe um Q$J extra... que 
ajudard a pagar a sua impressora! Mon- 
de noticias. 



5. PREENCHIMENTO DO LIVRO 
DE REGISTRO 

Esta opfao (ver figura 2) realiza o 
preenchimento da folha do Livro de 
Registro de Comunicados, obrigatdrio 
pela legisla9ao, para os QSOs constantes 
de um determinado arquivo. A formata 
930 d para formulario de 80 cotunas. e 



De PYIDWM 



J 



i. estamos na segunda edi^o da RODADA MS. Embora o tempo deconido entre o 
lancamento do numeio 31 e fechamento deste tenha side bastante pequeno, 
podemos, quer pela conespondencia recebida, quer pwlos comentarios nas faixas, 
antecipar seu sucesso. 

De infcio quero pedir descuplas ao amigo e colaborador Pivatto-PY3IT pela publi- 
cacao incoiteta de seu indicativo - macanudo que se preza munheca logo na entrada. 
Hit Para compensar, uma boa noticia: a Rod^a do Micro, cuja crta^aofoi sugeiida em 
MICRO SISTEMAS numerc 31 com a maioi das boas inten^oes, ja existe hi algum 
tempo. £ comandada por PY2AQ0 - Luiz, de Jau, SP. funciona diariamente a partir 
das 16:00 h em 7097 KHz ± QRM, e e bastante concorrida; o forte da tuima i a linha 
Sinclair e papo coire solto at^ pelo menos 18:30 h. Aguardem, pois temos muitas 
piomessas de colabora^oes do Luiz e sua turma... 

Antes de continual, um parentcsis: alguns colegas reportaiam diiiculdades na digita- 
(fio do Professor Picapau (MS n9 31), pois a impressora usa o mesmo carater para o al- 
gaiismo zero e a letra O, o que causa alguma confusao nas linhas 200. 220, 230, 250. 
320, 530, 820 e 860. SRI, isto nao mais acontecera 

Correspondencia recebida; de PYlFO-£vio. PY3IT-Pivatto, PYIBCN-Machado e, 

felo CWRJ, de PYIEWN-Ronaldo, todas com palavras amigas e de incentive; de 
Y5CIG-Alcione, com esta excelente colaboracao que ora publicamos e tambe'm do 
CWRJ,enviando-noso Boletim Infomiativo n9 16 (mar?o/abril 84). 

Gostarlamos de destacai a carta recebida de PY2QV-Casa do Radioamador de Ri- 
beirSb Pieto, dando conhecimento da eleifSo e posse da nova diretoiia para o ano de 
1984. liderada por PY2VDJ -Roberto Annovazzi (nossos votos de uma feliz e proff- 
cua administra^ao) e, ainda, solicitando publicaijao de seu endere^o. tendo em vista 
possuii um grupo de usuarios de microcomputadores interessado no intercambio de 
mforma^oes com grupos congeneres. O endereco da Casa do Radioamador de Ribei- 
r5o Preto 6 Caixa Postal 575. CEP 14100, Ribeirao Preto, SP, e o telefone para conta- 
tos imediatos de quaJquer grau e 624-5896 . 

Por falar em grupos e entidades, a RODADA MS tera prazer em divulgar quaisquer 
atividades relacionadas a utilizaijao do micro no radioamadorismo, quer de grupos li- 
gados ^ entidades radioamadon'sticas, quer de grupos de fundo de quintal. Da mesma 
Forma, serSo feitas referencias a Boletins Informativos, QTCs falados e demais publica- 
ns semelhantes que nos sejam enviadas. 

NSo percam na proxima edi^ao da RODADA MS um programa para treinamento 
de CW, colaboracao de Joige Alberto Correia Bettencourt Soares, para os usuarios da li- 
nha Sinclair. E fiquem ligados nesta promo^o: todos os colegas que remeterem,at^ 15 
de agosto, um QSL para a RODADA MS contendo alguma opiniao, cri'tica ou sugestao, 
concorrerao ao sorteio de tres assinaturas de 1 ano de MS. Os' radio-escutas ou os que 
nSo tern QSL podem mandar uma cartinha. 

Agora ja vou indo, mas antes desejo ressaltar o transcurso no dia 5 de maio do Dia 
das Comunicagoes. durante o qual tive a oportuiudade de ouvir pelas faixas as mais di- 
versas homenagens ao nosso insigne patrono, MarechaJ C^ndido Mariano da Silva Ron- 
don. Osparab^ a todos nos. 

CQ, CQI Precisourgenteentrar em contato com possuidoresde KENWOOD TS 130V 
ou TS 120V. Desculpem o cambio espada e vamos continuar prestigiando a nossa RO- 
DADA MS. 
HPE CUAGN 73 ES GL FM PYIDWM-Quito 



A RODADA MS « coordenada por PYIDWM-Robarto QUITO da Sant'Anna. Qualqutr 

oormpondAncii s/ou colabora^io devs nr envtada aot teut cuidadoi, para a 

Av Preiidente Wilion. 165, grupo 1210, CEP 20030, Rio de Jansiro, RJ. 

Contatoidirstot via Rodada do Micro (7097 KHz, dai 16:00 U ISKK) h), 

Patrulha da Madrugada (7056 KHz. dai 22:00 it 23K)0 h) ou pelo t«lefona 

(0243) 64-3355, ramal 594. 



DRTfl IHDICRTIVO QTR QR6 EMISSOO RST<R) RST (E> 



21/04/84 
21/04/84 
21/04/84 



PY5CIB 
PY5CLU 
PY5CIF 



0408 
0409 
0410 



14 
21 
21 



SSB 

SSB 
CU 



59+ 

59 + 40 
599 



59 + 
59 + 20 
599 
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ARQUIVO DE COMUNICADOS 



voce deve alter^-la, se for o caso, para ti- 
rar o maior proveito possi'vel dos recur- 
sos de sua impressora e do fonnulario 
disponivel. 

Considera96es finais: embora tenha 
desenvolvido o programa segimdo os pa- 
drOes intemacionais para o preenchimen- 
to de QSLs, e segundo os modelos de Li- 
vro de Registro de Comunicados que en- 
contrei, tive a preocupa9ao de deixar 
bem nitidamente separadas cada uma de 
suas partes. Assim, o usuario final pode- 
rd adapt^-lo convenientemente ao seu 
gosto com o mmimo de esfor90. Al^m 
de constituir urn produto acabado, pron- 
to para utUiza^ao imediata, este progra- 
ma pode tambem ser considerado um 
ponto de partida para o grau de sofisti- 
ca9ao que voce desejar. 



Formado em Administra(»o de Emprmtas, A/- 
cione Sperandio Junior rf radioamador desde 
1971. prefixado com o indicative PY5CIG. 
Utiliza microcomputadores para detanvolver 
programas de uso pessoal a apiicativos comer- 
dais na 4rBa em que atua. 



MICRO 

SISTEMAS 

n? 34! 



V oce nao 
pode perderl 



• MICRO MERCADO, LINHA APPLE - 
o poderoso mrto da maqS. A historia, 
caracieristicas e aplicagoes desses 
equipamenlos, e o seu impacto no 
mercado brasileiro. 

• EDITOR DE LEMBRETES explicac3o 
sobre o que 6 e para que serve o Mini 
NEW DOS. Para compietar. uma 
ferramenta que permite interromper 

a execuQao de qualquer programa, ir 
30 Mini NEW DOS e retornar h execugSo 
normal. 

• LtVAR 2 - rotina em Assembler, 
equivalente a um comando do BASIC 

do NEW DOS, que lista instantaneamente 
todas as varidveis de um programa. 

• DISTRIBUICOES ESTATISTICAS - 
programa de previsSes estatisticas, 
para Sinclair, que fornece resultados 
em tres distribuicoes. 



Arquivo de comunicados 



'ARQUIVO DE COMUNICADOS 

'PROGRAMA DE Alcione Sperandio Junior 

'RUA SAO LEOPOLDO 125 - 80000 CURITIBA - PARANA- 





10 

20 

35 

40 CLEAR2000 

50 DIMTRS(100>:OIHDT%(100)iDIHTU4{100):DIMgUt(100) :DIMRRt ( IGO) :D 

IMRSi(10a)JOIMHHS(10D)sDlMN5C100)!DIMlST5K10D) 

60 '=========== = =.=========== =================="-================■ = 

70 'ROTINA DE DESWIOS PARA AS DIVERSAS ROTINAS 00 PROGRAMA 

80 •=========== ============= ============================="-»--" 

100 CLS5F0RA=iT0127:SET(A,0>:SET<A,i2)sSET<A,47):NEXTA 

105 F0RA=21T037!SET(25,A):NEXT 

110 PRINT367, "ARQUIVO DE COMUNICADOS" :PR INTSISI , "P-Y-5-C-I-G":PR 

INTai40,"< <C) > Ale i one Sperar>d io Jun ior"; :PRINT3195,"Z-Y-5-C-l- 

G", 

120 PRINTa463,"ARQUIVAR - i -"; !PRINTa527,"6RAUAR EH DISCO - 2 - 

";:PRINTa591,"CARREGAR DO DISCO - 3 -"; : PR INTa655. "PREENCHIMENTO 

DE Q.S.L.5 - 4 -";:PRINTa7i9, "PREENCHIMENTO LIVRO DE REGISTRO 
- 5 -"j:PRINTa 783, "FIM DE TRABALHO - 6 -"; 



130 


BYl=INKEY5 


140 


IFSYS="i' 


,197 


150 


IFBYS="2' 


',1000 


160 


IFBYl="3' 


,2000 


170 


IFBYl»"4' 


',3000 


180 


IF8Y4="5' 


,4000 


185 


IFBY4="6' 


',191 


190 


G0T0130 




191 


CLS:END 




192 


' = £ = = = ==: 




194 


'ROTINA DESTINA 



196 '=,============ = = ======= = ================ === ====== =========== 

197 CLS!INPUT"QUAL A QUANTIDADE DE COMUNICADOS PARA ARQUIVAR ?"| 
Q 

200 F0RC=1T0Q 

210 CLS!INPUT"T0 RADIO ?"fTRt(C) 

220 INPUT"DATE QSO ?"jDTt(C) 

230 INPUT"TIME UTC ?"jTU$(C) 

240 INPUT"2 UAY ?";UUl<C> 

250 INPUT"RST SENT ?";RS1<C) 

260 INPUT"RST RECEIVED ?"tRR»(C> 

270 INPUT"M.H.Z. ?";MH1(C> 

272 INPUT"Q.R.A. ?";N5(C) 

274 INPUT"Q.T.H. ?";QT5(C> 

325 NEXTC 

326 CLStF0RA=iT0100:PRINTCHR5(23) ;3256, "ARQUIVO COHPLETADO":NEXT 
A:GOT0100 

340 'FINAL DA ROTINA OESTINAOA AO ARQUIVO DE COMUNICADOS===-==== 

1010 'ROTINA DESTINADA A GRAVAR DADOS EM DISCO 

1030 CLS!INPUT"ENTRE COM NOME DO ARQUIVO MAX 8 CARACTERES"; ARS 

:AR5=LEFTi{AR»,8) 

1035 INPUT"QUAL A QUANTIDADE DE COMUNICADOS PARA GRAVAR ?".Q 

1040 OPEN"0", 1,ARS 

1050 F0RA=1T0Q 

1060 PRINTBl.TRKA) 

1070 PRINTt*l,DT%(A) 

1080 PRINTttl,TU»(A> 

1090 PRINTHl,UIUt{A) 

1100 PRINTM1,BSI<A) 

1110 PRINT»1,RR1<A) 

1120 PRINTttl,MHi<A) 

1122 PRINT*tl,Nl<A> 

1123 PRINTm,QT»(A> 
1140 NEXTA 

1150 CLOSEMl 
1155 60T0100 



'ROTINA DESTINADA A CARRE6AR ARQUIVO DE DISCO- 



1170 'FINAL DA ROTINA DESTINADA A ARQUIVO DE DADOS EM DISCO- 

iieO '=====================================================: 

2000 '============i====. = = ============,======= ======= =========: 

2010 

2020 

2025 

2030 

ARAC 

2035 

;Q 

2040 

2050 

2060 

207D 

2080 

2090 

2100 

2110 

2120 

2122 

2123 

2130 

2140 

2255 

2270 

2280 



8 C 



CMD"D!0 

PRINT:PRINT:PRINT:INPUT"ENTRE COM NOME DO ARQUIVO HAX 
TERES";AR5;ARt=LEFTS{ARl,8) 
CLS:INPUT"QUAL A QUANTIDADE DE COMUNICADOS PARA CARREGAR 

0PEN"I",2,AR« 

F0RA=1T0Q 

INPUTtt2,TRt<A) 

INPUT«2,DTi(A) 

INPUT«2,TU1CA> 

INPUTt42,UU2(A> 

INPUTtl2,RSlCA) 

INPUT«2,RR$CA) 

INPUTH2,MH1<A) 

INPUTM2,Nt<A) 

INPUTM2,QT1<A) 

NEXTA 

CL0SE«2 

BOTOIDO 



'FINAL DA ROTINA DESTINADA A CARREGAR ARQUIVO DE DISC0===== 










2290 

3000 

3D 10 

3020 

3030 CLS!PRINTCHRI(23) ;"PREENCHIMENTO DE QSLs." 

3040 PRINTa256, "PREPARE A IMPRESSORA" 

3050 PRINTiPRINT"APOS PREPARA-LA DIGITE <(C)>" 

3060 KHl=INKEY4 

3070 IFKH1="C",D0T03090 

3080 G0T03060 

3090 F0RA=1T0Q 

3110 LPR1NT"T0 RADIO : ";TR*(A) 

3140 LPRINT"DATE : ";DTI(A> 

3170 LPRINTTAB{0);"U.T.C"j:LPRINTTAB(7)j"2-UAY";iLPRrNTTAB<14)r" 

R.S.T"-:LPRINTTAB(21);"M.H.Z" 

3180 LPRINTTAB<0);TU5(A>s!LPRINTTAB<8);WU»(A) j:LPRINTTAB(14>(RSS 

(A);!LPRINTTAB<22);MH1<A) 

3190 LPRINTTAB(O) ;N4(A) ; SLPR INTTAB < 10) ;QTS<A)| 

3191 LPRINT:LPRINT 
3210 NEXTA 

3220 GOTOIDO 

324D '== =======»===== ======= === =====-====== ==■= = -========= ======■= 

3250 'FINAL DA ROTINA DESTINADA AO PREENCHIMENTO DE Q.3.Ls.===== 

3260 '========================================================== 

4000 '======•======================"============«======= ========■= 

4010 'ROTINA DESTINADA AO PREENCHIMENTO DE LIVRO DE REGISTRO 

4030 CLS!PRINTCHR5<23) -"PREENCHIMENTO DE LIVRO DE REGISTRO" 

4040 PRINT' 256, "PREPARE A IMPRESSORA" 

4050 PRINT:PRINT"APOS PREPARA-LA DIGITE ((C)>" 

4060 PY1=INKEY* 

4070 TFPY*="C",G0T04090 

40B0 GOT04060 

4090 LPRINT"DATA INDICATIVO QTR QRG EHISSAO 

-RST<R> RST(E)" 

4095 LPRINT:LPRINT 

4100 F0RA=1T0Q 

4110 LPRINTTAB<0);DT5<A>;:LPRINTTAB<12),TRS<A);:LPRINTTAB(26);TU 

5(A);iLPRINTTAB(34) • MHl C A ) ; sLPR INTTAB (44 ) - WW4( A) ; iLPRINTTAB (53 ) ; 

RRS(A) ■ :LPRINTTAB(65);RS1(A) 

4120 NEXTA 

4130 GOTOIOO 

4160 'FINAL DA ROTINA DESTINADA A PREENCHIMENTO DE LIVRO DE REGI 
STRO DE COMUNICADOS 



^-^^^?m 



£ 
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AGORA t MAIS 
FACIL ASSINAR 

yVlioro 



^ 




Para sua maior comodidade, 

a ATI Editora Ltda. 

coloca a sua disposipio 

OS seguintes endere^s 

de seus representantes autorizados: 




Cobra 

volta -se para 

OS pequenos 




Cobra 210 



Com uma partidpa9ao tian- 
qiiila no mercado, repre- 
sentada por niais de 6 mil 
maquinas instaladas (so do mo- 
delo 305) e presenpa consolida- 
da fios segmentos de minjcom- 
putadores. micros pais aplica- 
^Ges comerciais pesadas e termi- 
nals para tianscri^ao de dados, 
cntie outros cquipamentos, a 
Cobra voita-se agora para a pro- 
mi&sora fatia das pequenas c ma- 
dias empresas, e profissionais li- 
berals mais sofisticados, com o 
lan^amento do microcomputa- 
dor Cobra 210. 

Menor, mais simples e barato 
que o 305, o bestseller da Co- 
bra.^o 210 e, no entanto.tecno- 
logicamente mais desenvolvido 
que seu antecessor e totalmen- 
te compati'vel com ele e demais 
computadores fabricados pela 
empresa, o que assegura ao usua- 
rio a possibilidade de migra^ao 
para maquinas maiores, a medi- 
da em que crescem as suas ne- 
cessidades de processamento. O 
Cobra 210 utiliza os sistemas 
operacionais SOM, MUMPS e 
SPM (compati'vel com CP/M) 
e as linguagens COBOL I. LTD. 
LPS e FORTRAN FV (sob SOM); 
COBOL, ANS, LPS, FORTRAN 
IV e BASIC (sob SPM) e 
MUMPS. 

AJem de rodar os mais de 
150 aplicativos ja dispom'veis 
para o 305 e qualquer programa 
compati'vel com o CP/M, o 210 
dispoe ainda do Sistema de Pro- 
cessamento da Palavra - SPP - 
processador de textos desenvol- 
vido no Btasil e que atende a to- 
dos OS requisitos especiTicos da 
lingua- porlugucsa - e de uma 
s^rie de utilitarios para manu- 
ten^ao, conversao, cdi^o e tra- 
tamento de arquivos, emula^o 
de terminals, foimatai;ao, inlda- 
liza^ao e back-up de discos, e 
software paraemula^aode termi- 
nals de diversos fabricantes, per- 



mitindo a forma^ao de redes de 
computadores. 

ftojctado para aplica^oes 
profissionais em pequenas e me- 
dias empresas, o equipamento 
pode ainda ser utilizado em pro- 
cessamento dislribuido e setorial 
em grandes organiza^oes, entra- 
da e comunicai;ao de dados, au- 
toma?ao de escritorios e proces- 
samento denti'fico. 

CONSTRU<^AO MODULAR 

Baseado no microproces- 
sador Z80B, de 8 bits, 
com clock de 5,85 MHz 
(quase o dobro da veloddade do 
Cobra 305), o 210 permite ope- 
ra^oes a ni'vel de bit, byte e pa- 
lavras, instni^oes aritme'tjcas, 
boolcanas, de entrada/sa-.'da, 
transferencia, comparatao de va- 
lores etc. A memoria RAM, de 
64 kbytes, pode ser expandida 
ate 128 kbytes, enquanto que a 
memoria EPROM, contendo ro- 
tinas de autoteste automatico e 
carga inidal, i de 16 kbytes. O 
sistema dispoe ainda de uma me- 
moria EEPROM de 64 bytes pa- 
ra parametros de configura^o 
programaveis. 

Sua constru9ao e modular, 
apresentando gabinetes separa- 
dos para UCP/vi'deo, teclado e 
adonadores de disquetes. O vi'- 
deo, de fosforo verde, tem 26 
linhas de 80 colunas, sendo uma 
linha reservada para exlbi^o de 
informa^oes sobre o estado do 
sistema. No modo texto, os ca- 
racteres - ASCII e lingua portu- 
guesa, maiusculos e minusculos 
- sao formados por matriz de 
7x9 pontos. No modo semi- 
grafico a matriz e de 9 x 1 1 pon- 
tos. 

O teclado - padrao Cobra, 
com 88 tecias, numerico redu- 
zido e tecias de fuiicoes espe- 
dals e de especifica?5o de modo 
de opera?ao - e ligado a unida- 



de prindpal atraves de fio espi- 
ralado, o que possibilita maior 
flexibiiidade de posicionamento 
e comodidade do operador. A 
exemplo do video, permite a 
utiliza^ao de todosos cajacteres 
ASCII e simbolos especi'ficos da 
lingua portuguesa. 

Cobra 210 pode trabalhar 
com ate quatro unidades de dis- 
quetes de 8", face e densidade 
dupla, com capacidade total de 
4,8 Mbytes (1.2 Mbytes por dis- 
qucte) e uma unidade de disco 
rigido Winchester de 10 Mbytes, 
esta mediante o uso de uma pk- 
ca de expansao opcional com o 
respectivo controlador. 

A impressora c matridal de 
160 cps, com op^ao de quallda- 
de carta para processamento de 
textos, e o sistema dispSe de 
ate duas linhas de comunicaQao 
padrao RS232 e veloddade de 
ate 19200 bps. 

O novo micro da Cobra pos- 
sui ainda tres slots livres paia 
placas de expansao, como o con- 
trolador de Winchester (disponi'- 
vel a partir do segundo semestre 
deste ano) e a wa rapida (via de 
comunica^ao tipo cabo coaxial 
com alcance de ate 300 metres), 
ja disponi'vel. Outras poderao 
ser desenvolvidas para diversas 
apiicaijoes, entre elas, a de cole- 
ta de dados e pequenos contro- 
les de processo e a de vi'deo gra- 
fico. Ainda a respeito da via li- 
pida, ela podera se constituir em 
futuro proximo na base de uma 
rede local interllgando varios 
micros e perifericos. A Cobra, 
apesar de nao dispor no momen- 
to de um produto acabado nes- 
se segmento. ja vem estudando 
essa possibilidade, seja atraves 
de desenvolvimento proprio ou 
por intermedio de empresas es- 
pedallzadas. como a Cetus. com 
a qual ja vem mantendo enten- 
dimentos. 

Fruto de dois anos de pesqui- 



sa e desenvolvimento, o Cobra 
210 tem como uma de suas prin- 
cipals caracteristicas o fato de 
que toda a sua eletronica e mon- 
tada numa ilnica placa de circui- 
to impresso, o que permite maior 
fadlidade e rapidez de manuten- 
^ao. O projeto do 210 tambem 
ja incorpcra as normas de padro- 
niza^ao de hardware estabeled- 
das pelo protocolo Abicomp/ 
Serpro. Com isso, o equipamen- 
to des&utard de compatibilidade 
a nivel de software aplicativo 
com OS computadores de outros 
fabricantes que segulrem esses 
padroes. 

RETOQUES NO MARKETING 

Al^m de modiflca^s a 
ni'vel de produto - o 
210, por exemplo, que- 
bra o padrao de cor cinza-claio e 
cinza-escuro dos equipamentos 
da empresa, substituindo-o por 
um majs agradavel bronze egelo, 
e e o primeiro Cobra a falar BA- 
SIC - a empresa, para disputar 
conconido segmento dos mi- 
aos de menor porte, teve que 
fazer algumas altera^oes em sua 
filosofia de marketing para me- 
Ihor adaptar-se as caracteristi- 
cas desse mercado. 

£ o caso da poli'tica de agen- 
tes - firmas autorizadas a reven- 
derem maquinas da Cobra -,ini- 
dada com o 305 e que devera 
ser incrementada com o 210. 
Tambe'm a exemplo do 305, a 
Cobra pretende incentivar as 
software -houses a produzirem 
programas para o 210. Qualquer 
empresa que ja tenha um produ- 
to para esses equipamentos ou 
pretenda desenvolve-lo recebera 
apoio da Cobra, garante Marco 
Antonio Tiso. gerente para a 
area de microcomputadores. Es- 
sa ajuda, segundo ele, podera va- 
riar desde o oferecimento de 
tempo de maqulna para o desen- 
volvimento, com a abertura de 
informa^oes tecnicas sobre o 
computador, ate o auxilio a di- 
vulga^ao do produto ou mesmo 
o credenciamento para a venda 
de hardware. 

Em sua configura^ao mais 
simples, com memoria RAM de 
64 kbytes, dois disquetes de 8" 
e impressora matridal de 100 
cps, o Cobra 210 sera inidal- 
mente vendido por cerca de 1 
mil 100 ORTN. S 





MS 
N? 


napAgina 


CORRECAO 


30 


48, no programa Um REM de Infinitos Bytes, 
terceira coluna, primeiro par^grafo, entre parentesis, 
deve-se ler: 


(para evitar qualquer problema troque a linha 
5500 por GOTO 1030). 


32 


10, no programa .4 Rotina Aponta-erros, no quadro 
Analisando a rotina, corrigir a 20? linha para: 


... faz exatamente o que diz, ou seja, Usta a linha 
numero XXXXX... 



fn.S. SErvicDS 



CS MICROLOGICA 

Engenharia de Sistemas Ltda 
Consultoria de Hardware 

assistEncia TECNICA 
a microcomputadores 

Compaliveis com APPLE. 

TRS80, IBM PC. ZX81, jogos 

eieirOnicos e outros. 




Temos programas comerciais, 

utilitdros, educacKXiais. 

aplicativos e jogos rK)vfssinx>s 

para APPLE II em Diskettes 

a partir de 15 mil 

AV PRESIDENTE VARGAS, 542 

/1912- 263-9925 

RIO DE JANEIRO (RJ) 



DATAMICRO 



VENDA DE 
MICROCOMPUTADORES 
TK 83, 85, & 2000 COLOR 

CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 

SUPRMENTOS 

DiSQuele f'las- torm continuo 

CONSULTORIA DE SISTEMAS 

Diagnostico e apoio a decisao 



"MIKROS" 

AGORA NO 

LEBLON! 

Av. AtauUb de Paiva 566 - Loja 21 1 
Rio de Janeiro — Tel.: 239-2798 



APROVEITE OS PRtgOS 

INCRiVEIS DA "MIKROS" 

DO LEBLON. APOS SUA 

EPOCA DE INAUGURAgAO. 

• MICROCOMPUTADORES 
bnhii Sinclair. TRS-80 e Apple, cic 

• PERIFERICOS 

ImpKisaoi. videos, intesfices, etc. 

• SOFTWARE SAC. E IMPORT. 
Maa de 700 progreinw e iogfii 

de rodos oi npoi 

• CURSOS DE BASIC 

• SUPRIMENTOS 

Furmulirios londnuoi. fitas, dukeiei, etc. 



PROFISSIONAIS 

ALTAMENT1E ESPECIAUZADOS 

PARA ATINDELO 



CURSOS E TREINAMENTO 

IntroduQao aos microcomputadores 

Linguagem Basic 

Aplicapao dos micros 

na Engenhana 

Microcomputadores para cnangas 

INSCRIQOES ABERTAS 

Livros e revistas especiaiizados 



Vise, de Piraja. 547 Sobrelota 211 

Cep. 22.410 Ipanems Rio RJ 

Tel.: (021) 274-1042 

DESPACHAMOS PARA 

TODO O BRASIL 



Q>iwQaiti^hce 



lugar compativel 

com voce e seu 

micro. 



1 



O a O MONOLITH 2001 

con f I>* LlDI 



RUA AUGUSTA ,1371 - S/L 7 
TEL' (Oil ) 268 4370 ■ S P 

• COMPUTADORES TK 85 

• SOFTWARE 



LANCAMENTO 

TRANSFOHME SEU TKB5 EM 
UM EQUIPAMENTO PROFISSIONAL 

"ANALISE DE INVESTIMENTOS 

E FINANCIAMENTOS" 

• 16K • 

COMPATIVEL C/CP200 E RtNGO R 470 

CONSULTaS DC BEVENOCOORES 
SlO BEH VINDAS 




PARA PROBLEMAS COM MATERIAj^DE 

OESENHO PINTURA ■ ENGENHARIA 
PAPELAFIIA ■ ESCRITORIO MAQUINAS P' 
ESCRITCifllO E SUPfllMENTOS EM GERAL 

bel-bazar 
eletrGnico 



A-y.-P 



and* voci AIMDA enconirs praco 

« qmlklad* d« ANTlGAMEiJTE! 

AV. ALMIRANTE BARROSO, 81 ■ U '■C" 

TEL: 262-9229 ■ 262-9086 ■ 2W«10 - 221-6262 

RIO DE JANEIRO -CASTEU) 



— Micros 

— Acessorios 
— Software 

— Livros 
— Revistas 



APPLE II 



Transformagao PAL-M 

Assistencia Tecnica 

Expansoes 



UNfTRON 



Assistencia Tecnica 

Autcrizada 
Vendas • Leasing g 
Expansoes 



Rua Dias da Cruz, 215 

s/804 — Rio de Janeiro — RJ 

Tel.; 594-2699 






MICROEQUIPO 



Manutengao 
na sua empresa 



Av Marechal Camara, 271/101 
Rio de Janeiro Tel.: 262-3289 



5 

^ 




ROBOTIC 



— MICROCOMPUTADORES 
DE TODAS 

AS MARCAS 

— SUPRIMENTOS 

— PEQAS E PARTES PARA 
MICROCOMPUTADORES 

— JOGOS ELETRONICOS 

RUA BARATA RiBElRO. 370 

— Loja 105 APART HOTEL — 

COPACABANA — RiO — RJ 

TEL: (021)257-6396 
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CURSO de 

BASIC 

No BASIC da Servimec voce usa constantemente 
micro computadof desde a 1 * aula. 

Vantagens: 


mandos e lunipSes do BASIC. sobre cuisos de Cabal 

lamihanrase com o uso do mi- Oigitscao e Cu'sos de (ft 

ciopessoal e aprende a lingua- nasen>|ulho 

qem BASfC de forma lacil e la- 

'^""^^ SERVIMEC S A 

Venha pata o BASIC da Sarvi- mtormai^ca e Ensitio 

AsinscncdesiSestSoabenase R. AfonsoPana. 332 (Est 
as vagas sSo limitadas (2 alo- TiradeniesdoMairOI 
nospormicto, Tel ,229 4600 






SEU MICRO EM 

BOA COMPANHIA 

ASSISTENCIA TECNICA 

AUTCRIZADA 




PROLOGICA 

UNITRON 

DIGITUS 



(03n 201-5156 

Rua Espirito Santo, 1868 

Belo Honzonte — M G 



INR)KMAIK A I.IDA 



PROGRAMAS PARA APPLE 

E 

COMPATiVEIS 



• Contabilidarie Geral 

• Edrlor de Texts 

• Siste*na de Arqulvot 

■ Mala Oireia 

• Sislema Esutistico 

• Conlrole Bancario 

• AdminiatracBO ImobiliAria 

• Simtema Bibliatacano 

• EMCrlKTto da Adwocacta 

• Ulllttirio* am Geral 

■ J090C Oivaiao* 



DESENVOLVIMENTO DE ESPECiFICXW 



• Atandlmanto paio raambolao pocul 

• VendM da cxxripuladoraa, 
•C««»6rlot ■ ■upiimanto* 



At. FnmkHn (twHrtrll. 13/tOi — CMtrto 
rrt..: 1O2I1 ZI0-65W - j:u-h.«7 

CVV.: 91.021 — Rm dr JiKwiro — KJ. 



JV2i lan^a 

jogos e utUitdrio 

para Sinclair 



Com a prolifera^ao dos 
microcomputadores, o 
mercado de videojogos tomou- 
se um alvo irresistivel aos 
"piratas" e sua produijao caseira de fitas 
xerocadas. Apos a euforia iiiicial, porem, 
o usuario tornou-se mais exigenle e. 
para alende-lo, surgirain empresas serias, 
algumas pequenas e independentes, que 
estao comercializando jogos bem 
gravados, bem apresenlados e contando 
ate com cria9oes originais. Este € o 
caso da JVA Microcomputadores que, 
atraves da sua marca Ciberne 
Software, acaba de lan^ar no mercado 
cinco fitas. sendo quatro de jogos 
e uma de utilitdrio. 
Concebidas para equipamentos da 
iinha Sinclair, com um mi'nimo de 16 
K RAM (TKs 82. 83 e 85, CP-200 e 
Ringo), as fitas foram gravadas pela 
PolyGram. nao tendo sido 
verificados, em neiiJiuma delas, 
problemas de leitura. Elas custam em 
media CrS 10 mil cada uma. vem 
lacradas e as embalagens tern 
acabamento profissional. 
As instru9oes e que, embora nao 
deixem duvidas. foram impressas em 
letras muito pequenas. podendo 
provocar uma certa dificuldade. Nas 
fitas de jogos isto nao ^ tao grave, mas 
na de utilitario seria conveniente a 
impressao de um follieto a parte, 
uma vez que o usuirio necessita 
recorrer as instru96es com mais 
freqiiencia. 

OS JOGOS 

As quatro fitas de jogos. embora 
denominadas lan^amentos, possuem 
muitos que ji sac conhecidos. Convem 
salientar que todas elas sofreram 
implementagoes nos originais 
estrangeiros e alguns jogos sac 
criagoes originais. Um ponto a 
ressaltar e que alguns deles permitem 
aijQes simuitaneas, como atirar e se 
movimentar, o que normalmente nao 



ocorre. Esta novidade faz com que os 
jogos se tomem bem mais emocionantes, 
principalmente quando se usa o 
joystick. 

Cada fita vem com cinco jogos, e dentre 
eles ha alguns jd bastante famosos, como 
o Enterprise, Mazogs. Crazy Kong e 
Frogger. Uns trazem as suas 
instru^des no proprio programa, o que 
facilita a leitura, embora alongue o 
carregamento. Os textos sao bons e, no 
caso dos traduzidos, nao foi encontrada 
nenhuma expressao absurda, embora 
alguns deslizes de Portugues como 
escole. ao inves de escolhe, ou 
infelismente. apesar de nao 
comprometerem. prejudiquem a 
apresenta9ao dos jogos. cujos desenhos 
sao sempre muito bonitos. 
Outra caracten'stica das fitas e que os 
jogos em geral foram dispostos em 
ordem crescente de dificuldade, o 
que e bom, pois nao causa frustra9ao 
ao usuario, apos divertir-se com um 
jogo dificil. Ja o intervalo de grava9ao 
entre um jogo e outro e muito 
pequeno, o que dificulta a busca dos 
jogos quando nao se quer seguir a 
ordem da fita. 

Alguns programas respondem com 
muita lentidao ao comando, o que 
poderia ser contornado com uma 
programa9ao mais agil . caso mais 
flagrante e encontrado no jogo Frogger, 
cuja proposta € fazer com que um 
sapo atravesse uma rua bastante 
movimentada e, logo depois, um rio, 
pulando sobre toras. Como a 
resposta ao comando do usuario € 
lenta, a travessia da rua acaba por 
tomar-se exaustiva, tantas as vezes que 
o sapoe atropelado. 
Apesar da lentidao do Frogger, a fita 
onde este jogo se encontra, Bichos & 
Cia., 6 a melhor em termos de conjunto. 
Os outros jogos da fita sao Casca, a 
Cobra; Crazy Kong, velho conhecido 
dos fliperamas; 5wc«n, o melhor jogo da 
fita, com \xm belo visual (a cobra vai 
crescendo a cada alimento ingerido, 



CIBERNE 4 



SOFTWARE 




BICHOS & CIA T 



Divtiifo e dlB9>a Bm cinco leniacionais joooi 
para o leu micro. Um leclado ou joyitlck. 

• FROCGEH 



CASCA A COBRA 
CRAZY KONG 
SUCUHI 



CENTOPEIA 



16 K RAM 

TKa;/83/85.CP-200 « compaTfy^n 



CIBERNE ^ 



SOFTWARE 




Lha o toclado ou a joyitick e iKie □ uu laninia 
Irio nestai cinco aiciuniet logoi de guorra. 

• NIGHT GUNNER • DUELO 

• POLARIS • SCRAMBLE 

• ALERTA VERMELHO 



(16 K RAM 
TK82/a3/85.CP 200 a compaiiSmii 



Com acabamento profissional, 

as novas fitas reeditam 

antigos sucessos e lan?am 

originals brasilciros 



dificidtando a sua movimenta9ao); 
e a Centopeia, que se divide em duas ao 
ser atingida no meio. Em todos os 
jogos pode-se usar o joystick. 
A fita Combate, ao contrario, nao 
aceita o joystick, o que e decepcionante. 
tendo em vista que sao todos jogos de 
estrategia e a9ao. Night Gunner tern 
movimenta9ao um pouco confusa; 
Alerta Vermelho ^ um bom jogo: 
Scrambler exige a utiliza9ao 
simultanea de oito teclas (em cima, 
em cima a esquerda, em cima a direita 
etc.), o que o toma um pouco 
complicado, exigindo do usuario uma 

habilidade motora espetacular. Neste 
caso e inconcebivel.a nao utiliza9ao do 
joystick. Os dgstaques vao para Duelo. 
muito enfadonho quando jogado contra 
computador. mas bem interessante 
quando disputado a dois; e e 6timo o 
Polaris, uma cria9ao dos brasUeiros A.C. 



Lobo e J. Eduardo. Trata-se de um 
jogo que exige Inteligencia, pacilncia 
e decisao e, como sugere a prbpria 
instru95o, e melhor mapear a regiao do 
confiito, pois caso contrario o jogo 
toma-se sem gra9a, com o jogador sem 
saber o que fazer e dando ordens a 
esmo ao computador. 
Na fita Aventuia e Mist^rio, o jogo 
Sabotagem, ap6s uma bela apresenta9ao. 
6 muito lento na distribui9ao de 
caixas dentro de um armazem que 
antecede o ini'cio da partida. Al^m 
disto, vale observar que a op9ao de 
jogar no papel do sabotador e bem mais 
interessante do que como guarda. 
pgo Aventureiro , que de avenluras nao 
tem muito. nos parece algo enfadonho. 
Ji o conliecido Mazogs e o melhor de 
todos OS jogos das quatro fitas. Para 
quem nao conhece, trata-se de um 
labirinto onde o jogador deve achar um 
tesouro e sair ileso. apos enfrentar 
alguns monstros. A Pirdmide Inca e 
bastante interessante e divertida; e o 
USS Enterprise e razoavel, exjgindo que 
se fa9am anota9oes. ja que e um jogo de 
3930 mental. 

Patrulha Gal^ctica e a fita mais fraca. 
Nave Mae, apesar de ter tres ni'veis de 
dificuldade e op9ao para jogar-se 
sozinho ou em dupla. nao chega a 
motivar. Em Galdctica. exige-se do 
jogador muito mais sorte do que 
intehgencia. Fungos Mutantes e bem 
interessante; 5(75 Vega HI 6 o melhor 
jogo da fita, exigindo do jogador 
aten9ao e rapidez: e Perseguidor, 
tambem conitecido como Galactica nos 
fliperamas e como Galaxy na Iinha 
TRS-80. e fdcil e lento, sendo bom 
para aqueles que dao seus primeiros 
passos em videojogos. 
ideal seria se a JVA colocasse no 
mercado uma quinta fita com os cinco 
melhores jogos. o que beneficiaria 
aqueles que nao tem CrS 40 mil para 
adquirir toda a cole9ao, mas poderiam 
pagar mais que CrS 10 mil per uma 



CIBERNE * 



SOFTWARE 





\ ,AV£r;i'URA A :.usii:rio/ ^' 

Pioirtf 1U.I ^"le.ijifci.i « jQili!jade tBoidm: 
wn(;er oi oixtlculot dciUt cinco dairiiarne-, 
Avantu(3t. Um IKlai^ ou joyiiii:k. 

• SABOTAGEM • piHAMIDE (NQA 

• AvENTUBEfflO • USS ENTERPRISE 

• MAZOGS 



[I6K RAM 
TK82/83/gS. CP.200 e compaifv*. 




fita realmente sensacional. Sem sombra 
de duvida, esta fita conteria Polaris e 
Duelo, da fita Comhate; Mazogs. da 
Aventura e Mist^rio ; Sucuri, da Bichos 
&Cia.;e SOS Vega III, da Patrulha 
Galactica. 

UTILITARIO 

A outra fita da JVA, tam6em 
comercializada com a marca Ciberne 
Software e com pre90 semelhante as ue 
jogos, traz tres excelentes utUitdrios. 
Com nome de ROT II, ela vem com 
um compilador Assembler, um 
disassembler e um compilador BASIC. 
Todos OS tres utilitirios sao baseados em 
similares estrangeiros, mas possuem 
implementa96es bastante interessantes- 
Um exemplo i o disassembler, que foi 
baseado no ZXBUG, da Artie Computing, 
mas entre as implementa96es esta 



um comando para criar lihhas REM, al^m 
de alguns erros de disassemblamento 
terem sido corrigidos do original. 
Outro exemplo 6 o Comando Copy, 
para tirar copia do que estiver no vi'deo 
para a impressora. 
probiema da fita, porem, sSo as 
instru9oes. que alem do tamanho da letra, 
muito pequena. dificultando a leitura, 
deixam o usuario sem saber exatamente 
ate onde vai a capacidade dos 
programas. Com isso, toma-se 
indispensavei para quem for utihzar a 
fita ter algum conhecimento de 
Assembler e mesmo de organiza9ao do 
sistema operacional dos equipamentos. 



As fitas da empresa JVA foram 
analisadas no CPD de MICRO 
SISTEMAS- Texto final: Lacio Santos 




Establlizador Eletrdnico 



mini 



Proletao ullra-rapida contra varta^oes 
da lensao da rede em ate ± 22% 
estabiliiando-a om + 1% 
Capacidade de 




0,25.0 4.0.6.0.6 
eiKVA 



Gerador Eletranlco 



GERATRON 

Quando a rede eletrica talta'. GERATRON 
conlinuara alimentando O seu micro como se nada 
houvesse acontecido _ •■ ^ 

Capacidade de 200 VA 
conlmuamente 



e 500 VA de pico 
Balena inierna 
com auionomia 
de 90 minutos 
a plena carga 

n. Dr. Qarniar. 579 - CEp 20971 





Linha Especial para Micros 

Protepao compleia para o seu micro, 
man tendo a alimentacao alt amenta 
estavele sem miernjpcao Forma de 
onda senoidai Capacidades de 2S. 4, 
0.6. 1 , 1 5. 2 5, 3 5 e 5 KVA Opera com 
quatro balenas comuns de 12 voUs 



GUARDIAN 



Rocha -Tels PABX (021) 261-6^58 
Representsnte Sao Paulo 



EQUIP. ELETRONLTDA. 

Direto 201-0195 ■ Telex n^ (021) 34016 ■ Rio de Janeiro ■ HJ 
-Tel. (Oil) 270-3175 flepresentanles em todas as capitals 
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Experimente a sensagao de estar na quarta dimensao. Sera que voce conseguira permanecer 
ISpormuito tempo? Aceite a desafio e teste o seu "folego" no seu PC-1211 



Perdidos 
na quarta dimensao 



Jose Alexandre Dell 'I sola 



Quarta DimensSo ^ um jogo 
que depende de muita sorte e 
raciocinio 16gico. Escrito para 
o computador de bolso PC- 
1211 Sharp, usa 1418 passes 
e todas as 178 mem6rias, sendo, por 
isso, indispensivel que nSo haja nenhum 
outro programa na memdria interna da 
mdquina-. 

O jogo 6 composto de v^rios objeti- 
vos. mas o principal e' tentar permanecer 
o maior tempo possi'vel na quarta di- 
mensSo. Para tal. voce receber^ uma na- 
ve sem combusti'vel em um planeta ima- 
gin^io. tendo que: 

19 objetivo - Adquirir grande quantida- 
de de combustive! para a viagem (na ba- 
se da sorte). Voce digital^ um numero 
qualquer e, atraves de uma somat6ria de 
numeros aleatbrios, receberd o combus- 
ti'vel total. 

29 objetivo - Sair da 6rbita terrestre 
sem gastar todo o combusti'vel, fazendo 
maior numero possi'vel de jogadas (pa- 
ra cumular pontos). Voce receberi a al- 
tura da nave, sua velocidade e o combus- 
ti'vel restante, e dever^ digjtar o combus- 
ti'vel perdido. Aten9So, pois voce s6 sai- 
r^ da brbita quando atingjr uma altura 
maior ou igual a 5.000 m ou velocidade 
maior ou igual a 3.500 km/s. 
39 objetivo — Passar para a quarta di- 
mensSo. Para isso voce ter^ que atingjr 
velocidade superior ou igual a 5.000 
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Quarta dimensao 






i: ".T":k=0 


S5:lF XOOGGTO 


150: PAUSE " ESCA 




5:V=0:H=0:X=0 


140 


POU riA GRAVI 


10: INPUT "DE-ME 


90: INPUT "COMPU 


riRriE!":K=K+l 


SEU N0nE'::7L 


STIVEL PERDI 


50 


ETRrtS>";A$ 


DO=";p 


155: PRINT "COMEU 


12: PAUSE rt$ 


95: IF P>XLET P= 


STIVEL">X 


15: INPUT "ESCOL 





ItO: INPUT "GASTE 


HA UM NUMERO 


100:X==X-P:a=P-lD 


TODO COMEUS 


=> ";z 





TIVEL-";C 


2ij:X=ABS (500+X 


105:H=H+V+0/2:V= 


if:.5: V=V+C+5 


-Z> 


','+0 


170: IF V>=5000 


2'?:E=E3 


no: IF H>=5000 


GOTO 1S5 


50: FOR A=1T0 5 


GOTO 150 


175: PAUSE " NAO 


35:E=23+X 


115: IF V>==?500 


CONSEGUIU C 


40:X=E-INT '-E-'E 


nOTO 150 


HEGAR" 


>+£+:«: 


120: IF HXiGOTO 


ISO: PAUSE " A 


45: PAUSE X 


A 5 


QUARTA HI MEN 


50: NEXT A 


150: PAUSE "ALTUR 


SAO ! " : GOTO 5 


55: PRINT "COMEU 


a=";h 


00 


STIVEL=:";X 


155: PAUSE "VELOC 


135: PRINT "VELOC 


65: PAUSE "ALTUR 


irtAriE=";v 


iriHliE=";V:K= 


a=";h 


140: PAUSE "COMEU 


K+500 


70: PAUSE "VELOC 


STIVEL=";X 


1S7: PAUSE " PA 


iDAriE=";v 


145: PRINT " NAO 


SSOU p.-' A QU 


75: PAUSE "COMEU 


CONSEGUIU S 


ARTA " 


.STIVEL=";X 


AIR! ":GOTO 5 


ISS: PAUSE " 


S0:K=K+75 


00 


El MENS AO ! 
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240: IF M$="C" 


420: PAUSE "* 


190: PAUSE " 


GOTO 235' 




DIGITE :" 


245: IF M*="D" 


4e" 


195: PAUSE "C P/C 


GOTO 400 


430: PAUSE " N 


ONTINUAR EM 


250: IF N$="E" 


AVE DESTRUID 


FRENTEJ" 


GOTO 235 


A " 


200: PAUSE "D P-- 


255: IF M$="T" 


500: BEER 1 


IR A EIREIT 


GOTO 400 


501: BEEP 5 


a;" 


260: IF M*="S" 


502: BEEP 2 


205: PAUSE "E ?/ 


GOTO 400 


503: PRINT "TOTAL 


IR A ESQUER 


265: IF M$="CI" 


DE PONTOS=" 


da;" 


GOSUB ::iOO 


;k 


210: PAUSE "T P/ 


270: IF M$="BA" 


504: END 


IR PARA TRAZ 


GOSUE SOO 


son: INPUT "ESCOL 


; " 


275: GOTO 235 


HA NUM.DE 1 


215: PAUSE "CI P 


400: PAUSE "VOCE 


A 9=^';L:G0T0 


■■' IR PARA CI 


FOI TRAGADO 


SIO 


ma; " 


POR UM" 


805: INPUT "OUTRO 


220: PAUSE "EA P 


401: PAUSE " C 


NUM.DE 1 A 


■■- IR PARA EA 


ANPD DE FORC 


9="5L:K=K+10 


ixo;- 


A!" 


00 


225: PAUSE "S PA 


402: PAUSE " 


810: IF L<=3GaT0 


RA PARAR ! " 


tttt" 


S05 


230: INPUT "QUAL 


405: PAUSE " 


815: IF L=5PAUSE 


E COMANDO? 


X" 


"V.VOLTOU AO 


";m$:goto 2 


410: PAUSE " 


PLANETA!": 


40 


+ +" 


GOTO 5 


235: INPUT "OUTRO 


415: PAUSE " 


S20: RETURN 


caMANDa=";M 


4e >|( 




*:K=K+750 


II 





km/s, gastando todo o cranbusti'vel res- 
tante. 

49 objetivo — Manter-se na quarta dj- 
mensSo o maior numero possi'vel de jo- 
gadas atraves de comandos fornecidos 
no visor (cuidado, pois voce poderi vol- 
tar ao planeta conforme o comando). 
Ao final, voce receberd o total de pon- 
tos obtidos na partida. 



OBSERVAgOES 



• Toda vez que estiver imprimindo aigo 
no visor, ap6s ter lido e memorizado, 
lembre-se de apertar a tecla ENTER. 

• A contagem de pontos i feita da se- 
guijite maneira: 

a) a cada jogada, para sair da 6rbita do 
planeta, voce receber^ 75 pontos; 

b) se conseguir sair da (3rbita voce re- 
ceberd 150 pontos; 

c) se conseguir passar para a quarta di- 
mensao receber^ 500 pontos; 

d) a cada comando voce receber^ 750 
pontos; 

e) a cada escolha de numero (na quarta 
dimensffo) voce receberd 1000 pontos. 

• Para come^ar o jogo, coioque o com- 
putador no modo DEF e aperte as te- 
clas SHIFT e J. ^ 

• Boa sorte! £ 



III! KSR BI-DIRECIONAL llll 

O unico terminal teleimpressor fabricado no Brasil. 



A ISA, Industria de Impressoras S/A, acaba de lan^aro 

primeiro teleimpressor genuinamente brasileiro. Sua alta 

tecnologia eletronica, prova na pratica sua capacidade 

de trabalho. ImprJme por matriz de pontos 9x7, 

permitindo ate 8 copias impressas, com uma 

velocidade de 100 C.P.S. Equlpado com -^ 

membria standard de 2 K caracteres, 

utilizando formulario continue, 

folhas Sottas ou bobina de papel. 

De 64 ate 1 32 caracteres por 

linha, com interface serial ^ 

RS 232 elo de corrente e 

paralelo. Sua velocidade 

de comunica^ao e de ^ 

50 a 9.600 B.P.S. 

8 diferentes 

tipos de >, 

Jmpressao. 







INDUSTRIA DE IMPRESSORAS S.A. 

Escritorlo 

R. Prol. Jose Marques da C'ui, 234 

Fabrica. 

Rua Csnlro Atf icana, i'4 

Te<s (011)240 2442 543-4939 

Telax (01I)36926MIM BR 

Sao Paulo SP 



)H4 



Conhepa mais 

detalhes do 

Teleimpressor 

KSRna 



MTtllU PE nOCElUMENIO M UOM E tEl.ECOilUMClU;Ml 

„ MATRIZ: Rto de Janeiro R Republics do Libano. 61 I2^ and 

Tel. (021) 22 1 4677 Telei(021| 30187 

FIUAIS: S. Paulo R. Frei Caneca, 1 1 19 Tel.. (01 tj 284 83i i Telei (Ot i) 22i9i 

Bfasilia SCS02 BlocoC n:' 41 SL 01 Tel (0611 22S 1588 Telex (061) 17B0 

Porto Aiegre Rua Santa Teteiinha. 300 Tel.:l051)32 3S64 Telex (051)2144 

Goiania - Belo l-tonionle Salvadoi 
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die!! 





Se voce tem pequenas rotinas e programas utilJtdrios 
realmente Gteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulgd-los. En- 
vie-os para a REDAqAO DE MICRO SISTEMAS - SECAO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Nao se esque^a de dizer 
para qual equipamento foram desenvofvidas. Desta forma, 
sua descoberta poderd ser Gtil para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 



TRS 80 



Tela piscante 

Incremente seus programas criando um efeito de pisca- 
pisca na tela. 

10 CLEAR 2000:DEF1NT I 

20 IF PEEt<<lA39A)<>2ni THEN DEFUSR=3200a 

ELSE POKE IA526,0!P0KE 16527,125 
30 FOR 1=32000 TO 32D16:READ YsPOKE I.YiNEXT 
40 X=USR<a):GOTO 40 
50 DATA 33,0,60,54,191,17,1,60,1,255,3,237, 

176,205,201,1,201 



Marcos Portnoi - BA 
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Desvio condicional otimizado 

Economize mem6ria e tempo de execu^ao em seus 
programas, agilizando os desvios condicionais com a 
seguinte t^cnica: 
onde houver desvios do tipo 



iO 


INPUT A 






20 


IF A=2 THEN 


GOTO 


200 


30 


IF A==3 THFN 


GOTO 


300 


40 


IF A=4 THEN 


GOTO 


400 


use recursos como 






iO 


INPUT A 






20 


GOTO A*i00 







Jos^ Ronaldo dos Reis — SC 
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Acelerando o SLOW 

Execute seus programas em BASIC numa velocidade 
maior que em SLOW, ou entao use esta rotina como 
um efeito visual : 



16514 


FD 


CB 


3B 


F6 


CD 


07 


02 


DD 


16522 


2i 


8E 


40 


C9 


ED 


5F 


01 


01 


16530 


19 


3E 


F5 


CD 


B5 


02 


CD 


92 


16538 


02 


CD 


20 


02 


DD 


21 


A5 


40 


16546 


03 


A4 


02 


D3 


FD 


3A 


28 


40 


16554 


C6 


C2 


32 


28 


40 


CD 


92 


02 


16562 


CD 


20 


02 


DD 


21 


8E 


40 


C3 


16570 


A4 


02 















Para utilizar esta dica, de RAND USR 1 6514; e para 
fazer com que o micro volte ao estado normal, basta te- 
clar qualquer uma destas instru^Oes; FAST, PAUSE, 
COPY. LLIST ou LPRINT. 

Depois de colocar esta dica no seu equipamento, tes- 
te a diferenfa com este programa; 

10 SLOW 

20 GOSUB 100 

30 RAND USR 16514 

40 GOGUB 100 

50 IF INKEY%=^"" THEN GOTO 50 

80 COPY 

90 STOP 
100 FOR A=l TO 30 
110 PRINT AT 10,i5;A;" " 
120 NEXT A 
130 RETURN 

Paulo de Tarso Cardoso de Almeida — SP 
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Desative o RUN e o LIST 

Uma boa forma de proteger seus programas e desativar o 
RUN dando um POKE 17I28J*J (sendo N um numero qual- 
quer entre 1 e 255). Assim, o computador acusara erro de 
sintaxe quando algum pirata tentar dar um RUN no seu 
programa. 

Outro macete 6 bagungar o LIST com um POKE 1 7 1 29 J^i 
(tendo N qualquer valor diferente de 239) ou com POKE 
17130 J^ (N diferente de 66),pois com isso o o//iei>o nao 
vai entender nada quando der um LIST. Pode-se ainda con- 
seguir o mesmo efeito colocando o valor 255 nos endere^os 
de 17129 at^ 17132, mas este metodo tem restri95es por- 
que nSo pode ser usado em um programa que use um GO- 
TO de uma linha maior para uma linha menor. 

fi importante, para maior seguran^a, testar esses endere- 
90s antes do POKE com o PEEK, pois esses valores podem 
ser diferentes no seu equipamento. 

Alessandro Zimmer-PR 
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Memorizando a tela 

Use esta rotina para arquivar uma tela de video numa varidvel String: 

10 CLEAR 3000:DF:FINT I:DIM VIDEO! < 1023 ) 

2tr FOR 1 = 15360 TO 16383 

30 yiDE0S<I"1536G)=CHR*(PEEK(I) ) 

40 POKE 1,95 

50 POKE I,A8C(MIDE0g-)(I~i5360) ) 

60 NEXT 



Para recuperar a imagem, digjte: 

70 CLS:FOR 1 = TO i023:PRINT '^IDEO'BCI); 
:NEXT 

Marcos Portnoi — BA 
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Rapidez em 
longos REMs 

Para digitar linhas REM com mui- 
tos caracteres em suas rotinas em lin- 
guagem de mdquina, use este artifi'cio 
e ganhe mais tempo e seguran9a; 

i PRINT 7+8+S>8+8... +8+8 

Rode esta linha e saiba a quantida- 
de de bytes que estao disponiveis na 
linha 1 (cada + 8 equivale a 8 caracte- 
res). Para substituir PRINT por REM, 
digite POKE 16513, 234. 

Dalvino Francisco Salvador — SC 
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Teste a mira 

Treine sua pontaria tentando acertar o alvo que estd k direita neste programa em BASIC. Depois de digitd-lo, € 
S(5 esperar at^ que a barra da esquerda atinja a altura certa e atirar (pressionando qualquer tecla). 



10 CLS -i X=RND(45) : SET (127, X) 

20 FOR A=47 TO STEP -1 s SET <0,A) = FOR Ei = l TO 10 

30 IF INKEYS="" NEXT = PRINT "PERDEU SUA CHANCE.--"; 

40 FOR B^=-D TO 127 : SET (B,A) s NEXT 

50 IF A==-X PRINT "NO ALUO.'' ELSE PRINT "ERRROOOUUUUU , 

60 IF INKEY*-'"-' 60 ELSE RUN 



NEXT 
GOTO 60 




Linha 
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CLS rdpido 
apos SCROLL 

Nao perca tempo esperando a 
execufao de um CLS ap6s o uso 
de instru96es SCROLL : impe9a 
que o arquivo de video (D-FILE) 
passe para o modo reduzido. Para 
isso, imprima um caracter qualquer 
(ou espa^o vazio) na ultima posi- 
930 de cada linha (TAB 31), logo 
ap6s um SCROLL. 

Dalvino Francisco Salvador — SC 



Para tornar este jogo mais interessante, teste a sua imagina9So incremen- 
tando-o com uma apresenta9ao, efeitos sonoros, contadores, mensagens, re- 
cordes... 

Renato Degiovani — RJ 
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Agilize o CLS ' 



Reduza tempo de apagar a tela com o CLS usando esta dica: 

1 LET FP-=PEEK 16396 + 256HPEEK 16397-16509 

2 POKE 16389, INT (FP/256) 

3 POKE 16388, FP-INT <FP/256)x256 

£ interessante observai que haveri uma pequena demora na fonna9ao 
da imagem . 

Edson Cury - SP 
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Curso de 
Assembler - XVII 



N, 



esta li^ao vamos aboidar um grupo de instru^Ses pouco uti- 
lizado, porem de giandes recuisos paia a elabora?ao de programas. Esta- 
mos falando do grupo de ROTATE e SHIFT. Passemos ent^ a descri- 

r'o destas instrufSes. 
- Rota^o Circulai do Acumulador a Esqueida 
Format o: RLCA 

Operagao: O conteiido de cada bit do Acumulador e movido para o bit 
a sua esqueida. 
C6digo objeto: 

RLCA 



1 



.Descrifdo: O conteiido do Acumulador (registrador A) e rotacionado pa- 
ra a esquerda: o conteiido do bit e movido paia o bit 1, o conteiido 
anterior do bit 1 e movido para o bit 2, e este padrao e repetido para 
todos OS bits do registrador. O conteiido do bit 7 6 copiado na Carry 
Flag (Flag C do registrador F), assim ccmo no bit 0. 
Ciclos de mdquina (Mj: 1 
Srates (T): 4 
Flags afetadas: S - nao afetada; 

Z - nao afetada; 

H - ressetada; 

P/V - nao afetada ; 

N - ressetada; 

C - bit copiado do bit 7 do Acumulador. 
Exempio: Se o conteiido do Acumulador 6 



1 


1 r r T 

1 






ap<5s a executao da instru^ao RLCA o conteiido da Carry Flag seii I e 
o conteiido do Acumulador sera : 



1 1 r 1 1 1 1 — 

10 1 



2 - Rota^ao do Acumulador a Esquerda 

Formato: RLA 

Opera^ao: O conteiido de cada bit do Acumulador i movido para o bit 

a sua esquerda. 

Cddigo objeto: 

RLA 



r— t — T — T ■ 1 

10 1 

111! 


1—1 

1 


1 



Descrigdo: O conteiido do Acumulador (registrador A) 6 rotacionado 
paia a esquerda: o conteiido do bit 6 movido para o bit 1 , o conteiido 
anterior do bit 1 e movido paia o bit 2 , e este padrao 6 repetido paia to- 
dos OS bits do registrador. O conteiido do bit 7 i copiado na Carry Flag 
(Flag C do registrador F) e o conteiido anterior da Flag Carry e copiado 
no bit 0. 



Cliclos de mdquina (M): 1 

Slates (T}:Ai 

Flags afetadas: S - nao afetada; 

Z - nao afetada; 

H - ressetada; 

P/V - nSo afetada; 

N - ressetada; 

C - bit copiado do bit 7 do Acumulador. 
Exempio: Se o conteiido da Flag Carry ^ 1 e o conteiido do Acumula- 
dor^ 



1110 110 



ap6s a execu^ao da instrucao RLA o conteiido da Carry Flag sera e 
o conteiido do Acumulador sera : 



1 


1 — 1 

1 


1 1 

1 




— 1 


1 1 

1 


1 1 

1 

1 . 


1 1 




1 — 

1 



3 - Rota^ao Qrcular do Acumulador a Direita 

Formato: RRCA 

Opera^ao: O conteiido de cada bit do Acumulador i movido paia a sua 

dueita. 

Cddigo objeto : 

RRCA 



—I 1 1 1 r 1 1 

1111 

I I I I 1 1 1 — 



Dexrifdo: O conteiido do Acumulador (registrador A) e rotacionado 
para a diieita: o conteiido do bit 7 6 movido para o bit 6 , o conteiido an- 
terior do bit 6 e movido paia o bit 5, e este padrao e repetido para to- 
dos OS bits do registrador. O conteiido do bit e copiado na Carry Flag 
(Flag C do regastrador F). assim corao no bit 7. 
Ciclos de mdquina (M): 1 
States (T): 4 
Flags afetadas: S - nao afetada; 

Z - nao afetada; 

H - ressetada; 

P/V - nao afetada ; 

N -ressetada; 

C ~ bit copiado do bit do Acumulador. 
Exempio: Se o conteiido do Acumulador e 



10 1 



ap6s a execu?ao da instru^ao RRCA o conteiido da Carry Flag sera 1 e 
o conteiido do Acumulador sera: 



1 



r 1 1 1 

10 



4 - Rota^o do Acumulador a Direita 
Fo/Tna/o.-RRA 



Operagdo: O conteiido de cada bit do Acumuladw e movido paia o bit' 
a sua diieita. 
Cddigo objeto: 

RRA 



11111 



Descrifdo: O conteiido do Acumulador (registrador A) 6 rotacionado. 
para a direita: o conteiido do bit 7 6 movido para o bit 6, o conteudo 
anterior do bit 6 e movido para o bit 5, e este padi£o 6 repetido para 
todos OS bits do registrador. O conteudo do bit e copiado na Qirry 
Flag (Flag C do registrador F) e o conteudo anterior da Flag Carry 6 
copiado no bit 7 . 
Ciclos de mdquina (M): I 
States (T): 4 
Flags afetadas: S - nao afetada; 

Z - nao afetada; 

H - ressetada; 

P/V - nao afetada; 

N - ressetada; 

C - bit copiado do bit do Acumulador. 
Exempio: Se o conteudo da Flag Cany e e o conteudo do AcumuU- 
dor e 



1 


1 


1 


1 r I ■ 




1 



ap6s a execu^ao de RRA o conteudo da Carry Flag sera 1 e o conteudo 
do Acumulador xii: 



1 


1 1 

1 


1 — 1 

1 






5 - Rota^o Circular de R^strador a Esqueida 

Formato: RLCr 

Operagdo: conteudo de cada bit do registrador especificado na ins- 

trucao i movido paia o bit a sua esquerda. 

Cddigo objeto: 

RLC r 



1 


1 








... 

1 


1 1 




1 


1 
















1 1 


r 


r 


r 



onde m podc assumir os seguintes valores: 



000 
001 
010 
01 1 
100 
101 
1 10 

1 1 1 



para r r r 

para r r r 

para r r r 

para r rr 

para r r r 

para r r r 

para r r r 

para r r r 



registrador B 

registrador C 

registrador D 

registrador E 

registrador H 

registrador L 
posi^ao de aenoria (HL) 

registrador A 



Exempio: 



RLC D 



1 1 I 1 r 

10 11 



— I — ( — ( — I — I — I — I — 
10 



Descrigdo: O conteiido do registrador especificado na instru^ao e rota- 
cionado para a esqueida: o conteiido do bit e' movido para o bit 1 , o 
conteudo anterior do bit 1 e movido paia o bit 2,e este padjao e repe- 
tido para todos os bits do registrador. O conteiido do bit 7 d copiado na 
Carry Flag (Flag C do registrador F), assim como no bit 0. 



INSTRUCAO CICLOS OE HAQ11IHA(H} SIATES(T) 


RLC r 


2 


S(4,«) 


RLC(HL } 


K 


15(4,4,4,3) 



Flags afetadas: S - setada se o resultado 6 negativo, senSo i ressetada; 
Z - setada se o resultado & zero, senao e ressetada; 



H - ressetada; 

P/V - setada se a paridade i par, senJo € ressetada; 
N - ressetada; 

C - bit copiado do bit 7 do registrador fonte. 
Exemplo: Se o conteudo do Acumulador t' 



— I r p 1 1 1 1 — 

10001000 

— » — 1 — I — I — I — I l__ 



apos a execu^ao da instru^M RLC a o conteiido da Carry Flag serd I e 
conteudo do Acumulador sera: 






1 1 

1 


I 1- — 1 


1 1 


1 



6 - Rota9ao Circular a Esqueida de Resistrador Indexador 
Formato: RLC (IX+d) 
RLC OY+d) 
Operagdo: O conteudo de cada bit do endere^o de memoria especifica- 
do pelo registrador indexador e movido paia o bit a sua esquerda. 
Cddigo objeto: 

RLC (IX + d) ou RLC (lY^^d) 



1 


1 r 


1 


1 1 


1 


1 


1 





1 1 


1 


d 


d d 


d 


d d d 


d 











1 1 






onde r pode assumir os seguintes valores: 



para r - registrador indexador IX 

1 para r = registrador Indexador lY 



Descrifdo: O conteudo da posi^ao de memdria especificado pela soma 
do conteudo do registrador indexador (IX ou lY) com o deslocamento 
d em complemento de 2 ^ rotacionado para a esquerda: o conteiido do 
bit i movido para o bit 1, o conteiido anterior do bit 1 e movido para 
o bit 2, e este padrao e repetido para todos os bits. O conteudo do bit 7 
6 copiado na Carry Flag (Flag C do registrador F), assim como no bit 0. 
Ciclos de mdquina (M): 6 
SfflrcsiT/- 23(4,4,3^,43) 
Flags afetadas: S - setada se o resultado e negativo , senab 6 ressetada; 

Z - setada se o resultado i zero, senao i ressetada; 

H - ressetada; 

P/V - setada se a paridade i par, senao € ressetada; 

N - ressetada; 

C - bit copiado do bit 7 do endeie^ fonte. 
Exempio: Se o conteudo do registrador IX € lOOOH c o conteudo do 
endeie^o de memoria I(X)2H e 



1 

1 







1 





1 





1 1 




1 





apos a execufao da instiufao RLC (IX + 2) o conteudo da Carry Flag 
sera I e o conteudo de mem6ria especificada seri: 



T — 1 1 




1 

1 

1__ 


1 



7 - Rota^fo a Esquerda 

Formato: RL m 

Operagdo: O conteudo de cada bit do operando m i movido para o bit 

a sua esquerda. 

Cddigo objeto: 

RL r 



1 


1 








1 





1 1 

1 


1 











1 





r 


r 


r 



& 
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RL (HL) 



1 1 







1 1 



RL (IX-fd) 

T r 



1 1 



d d 







1 1 

— I — 
1 1 



d d 









— i — 



O 1 



1 







d d 



1 



RL (lY+d) 



1 1 





— I — 



d d 



1 



— 1 1 — 

1 1 

— t — (— 

1 1 

I I 



1 1 



1 1 

—I — h— 



d d d 

— I — ^— 



1 1 



— I — 1 — 
1 1 

—I — I — 

1 1 

— I — I — 



d d d 

— I — I — 



1 1 



8 - Rota^ao Ciiculai i Direita 

Formato: RRC m 

Operafdo: O conteudo de cada bit do operando m e movido para o bit 

a diieita. 

Cddigo objeto: 



onde m pode assumii os valores que estao na figura 1 . 

Descrifdo: O conteiido do operando m 6 rotacionado para a esquenJa: 



000 para rrr 

001 para rrr 

010 para rrr 

011 para rrr 

1 00 para rrr 

101 para rrr 
111 para rrr 



reglstrador B 

reglstrador C 

reglstrador D 

reglstrador E 

reglstrador H 

reglstrador L 

reglstrador A 



Figura J 

conteudo do bit i movido para o bit 1 , o conteiido anterior do bit 

1 6 movido para o bit 2, e este padrao 6 repetido para todos os bits. 
conteudo do bit 7 6 copiado na Cany Flag (Flag C do registrador F) e 
o cop'eudo do anterior da Carry Flag e copiado no bit 0. 



msiBUCAO CICtOS DE mAOUIHA(M) SIATES(I) 


RL r 


2 


S(«,*) 


RL (HL) 


4 


15(*,»,* , 3) 


RL ( IX'd) 


& 


21(4, «.).»,«,)) 


RL (IV»4) 


6 


23(4, «, 3, 5,«,3) 



Flags afetadas: S - setada seo resultado i negative, senao eressetada; 

Z - setada se o resultado i zero, senao e ressetada; 

H - ressetada; 

P/V - setada se a paridade i par. sen£o i ressetada; 

N - ressetada; 

C - bit copiado do bit 7 do r^strador fonle. 
Exemplo: Se o conteudo da Carry Flag 6 e o conteudo do registrador 



— 1 r -T I 

10 1 

■ 111 


1 


1 1 

1 

1 1 


1 



RRC 



1 10 10 1 

H — I — I — I — I — t— 



1 



RRC (HL) 



— I — I 1 1 1 ' — 

110 10 1 

—I — I — I — 1 — \ — (— 



1 

1 1 1 1 — 



1 1 



RRC (IX+d) 



— I 1 1 1 1 ' — 

110 1110 

— I — I — I — I — \ — t— 



110 10 1 

-H 1 1 1 — I 1— 



d d d d d d d 

— I — I — I — I — I — I— 



111 

I I 1 1 1 1 — 



RRC (lY+d) 



1 1 ! 1 1 « 

1111110 

-H 1 1 — I 1 — I — 

110 10 1 

— ) \ \ — I 1 — H- 



d d d d d d d 

— \ — 1 — I — I — \ — I — 



111 



onde m pode assumir os valores que estio na figura 1 ■ 
Descricdo: O conteudo do operando m e rotacionado paia a direita: o 
conteudo do bit 7 c movido para o bit 6. o conteudo anterior do bit 6 
e movido paia o bit 5, e este padrao 6 repetido para todos os bits. O 
conteudo do bit e copiado na Carry Flag {Flag C do re^trador F), 
assim como no bit 7 . 



INSIRUCAO CICLOS Dt NAgUINA(H) SIATES(I) 


RRC r 


2 


SO. 4) 


RRC (HL) 


* 


15(».»,», 3) 


RRC ( I X«d) 


6 


23(»,*,3.5,*.3) 


RRC <IV*<1) 


6 


23(4,4,3, :»,4, )) 



Flags afetadas: S - setada seo resultado e negative, senao eresseta(Ja; 

Z - setada se o resultado e zero. senSo 6 ressetada; 

H - ressetada; 

P/V - setada se a paridade i par, senao 6 ressetada; 

N - ressetada; 

C - copiado do bit do registrador fonte. 
Exemplo: Se o conteudo do registrador A 6 



— I — 1 1 — I 1 1 p — 

1 10 1 



ap6s a execufffo da instru9ao RRC A o conteudo da Carry Flag sera 1 e 
o conteudo do registrador A seri: 



1 

1 





1 — 

1 


1 — 1 

1 

1 1 




_J 1 



apds a execu^ao da instru^o RL D o conteudo da Carry Flag s&ii I e 
o conteudo do registrador D sera: 



I r 



1 1 

1 


1 


1 


1 — 
1 


1 





Amaury Correa de Almeida Morass Junior 4 formado pelo curso de Ar)i- 
lise de Sisremas da FASP, tendo faito diwrsos cursos de aperfeipoamen- 
to nas 4reas de E/etrdnica Digital e Microprocessadores, e atuafmente 
trabalha na 6rea de microcomputadores para o Cir/banlc. 
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• RAMCARD • SOFTCARQ • VJDEOTtRM • S0FTV1D€0 SW • PROGRAMMER • PROTOCARD • 1NTF, DISKS 

INR PRINT • SATURN 123K RAM. • SATURN 64K RAM. • SATURN 32K RAM. • RANA QUAfnTTO • ^CROMODEM 

• MJCROBUFFER 11 • MOOCCH^VERTER 31 ■ MfCRO VOZ II ■ ULTRATERM ■ ALF B088 CARD 

■ AaOO DISK CONT ■ MULTIFUMCTION CARD 

MiCROCRAFT MiCRQCOMPUTADORES LTQA, 

ADMINlSTRACjAD E VENQAS' AV. 8RIG. FARlA UA^. 1.664-3? ANQ^R - G 316 - CEP 0U52 

FONES (01 1) 212^5266 E 813-67^ - SAO PALfLO - SP - BRASJL 



Foidadaa /argadaf O csrro sdver^rio se de^overna e dfspars ds encontro so seu. 
Pars ganhar esta parada^ vd desvfando^ g mostre &o seu Apple quern i o campeao 



Um enduro micro-louco 



Cfiud'to Leonardo Mi/ione Dutra 



Este rf um jogo simples, mas ideal para divtrtir OS 
usuiriosdu Apple e com pal I'vei^nss tajrctes dc doniif^O' 
objetivo i evilar a batida do cajro advejs^io 
(do micro) contra o seu^ at^ que o tempo da conidA 
se es^te. 
Para movirneiitar q seu carro, pressione as setas para a direiU 



INFORMATICA AO 
ALCANCE 
DE TODOS 




ENTRE NA ERA 
DOS COMPUTADORES 



TAXA 
UNICA 



CrS 30.000,00 

SEM MENS ALIDADE 



• Introdugao ao Processamento 
de Dados • Digttagao • Basic 

• Cobof • RPG • PL 1 • Fortran 

■ Assembler « Mumps 



227-7417 - 521-4936 - 267-9261 



Copa — Centre — Tijuca — Meier 
Madureira ~ N. IguaQU — Caxlas 



DATABERAR — PROCESSAMENTO 
DE DADOS Rio de Janeiro 



e para esqu&rda, t para par^-lo use a barra de espa^. As 

lec3a£ ] e 2 selcoionam a primeira e a segunda maqrcha, 

respectlvamtnte. 

Ptonto pan a larg^da? EntSo conedor, p^ na tdbua e mfo 

nas teclul 



S4 



Enduro 



JLI3T 

100 TEXT : POKE 34,0; HOHE ; SPEEO- 

105 REn «**«««««ih«.*#i^«4 *«.,,,« 

110 REH •BV CLPfD PFTDDUCT I ONE* 
1 IS REM *tt«*«4*«*«*#»,*«««««« 

120 REn EXPLICACAO 

135 HTAB 13J INVERSE ; PRINT "EN 
DUnO"; NORMAL : VTAB 3: HTflB 
2: PRJNT '■ f>flRA nOUER D CARR 
a use >*S SETAS": VTAB 3: HTAS 
2,- PRINT " A BAftRfl PARA Cfl 
RRD": VTAB 7: HTAB 2: PRINT 
•' TECCAS M' !, *a' SELECIONA 
n AS MARCHAS': VTAB ZO: GET 
A* 

REM PA I SflSErt 
X B 2 

HOME 
GR 

CDLnR- to 

A ^ OIE * 13 
S05UB lt3: GOra 185 
FOR N a 15 TO e STEP - 1 
HLIN A,B AT N;A - A + L:B » 
B - 1 



130 
133 
MO 
115 
150 
133 
l&O 
1 65 
170 

173 

leo 

185 
190 
i9S 



NEXT 
RETURN 
CCM-QR- 
1&3 

COLOR" 
163 
COLOR- 



&;A " 1-3: B ^ 27: QC3SUB 

i3;a = 2S:b = 39r qosub 

15; HLIN 26,27 AT 3; HLIN 
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SCOLA DO FUTURO. HOJE! 



A DtQfTUS ■ tNOOSTRlA DE COMPUTA DORBS tem procumdo atender 
ao usudrlo do DQT-IOOO. cofocando no mercado novos equipamentos 
que aumentam a versaWidade do microcomputa<for. 
£ com esse objetivo, quea OlQiTUS ianga a UCTE - um mdduloqua 
acoptado ao DQ T-fOOO irt atender aosprotisstonais principaimente 
da area educaciortai 




IKH^- Unldid* Cofitrotwkn dtTtmanito Educackmata^ 



Ru» Q*vm. 150 B0t» HortxontB 
M: (031i 332.8300 tx: 33S2 

W: (OZf) 2S7-2Bm 




E9t§ un/tfatf*p«/m;»« comwn/c»eio «*« am DQT-fOOOcvttmtcomai* l6(d«sesaei£)DQT-10009Kundirios 

Mtnvis da porta dtcasMis. ^ , . . ^ 

09 d^zaas^ls twminvi^ podw^ aercomputador^a na coitttgttr^gio minima, pofa sando a eomtm/cafto alrav^ 

da porta da caaaannAoin0ca$sA^qtiaiqu9f modi ficacionoBtarmloais. ^^^ 

O ootnpntadoecantrai, comartdado pafo Instmlor. dwor* tofuma oonfigum^ mtntma da 48KB da mamoria a 

um Olsk'Odva. 

O si$to/na patmlfa ao inatwtofcafraifarprograrnas nas aataQQea indMduais, podando aplicarprows a mas 

raspoata$ aatomaticamanta j/mYadas no dhquaia, pan postartoravaflaoio. 

Nas osta^s indMduats^ os as fudantas podarto Qravaro canagafpfaQramaa diratamonra no compt/tador do 

tnatn/torapodarMo tambim usarosai/ computadofiodependentamBrtta, 

Suas apHcacQas sMo da granda vatta para cantros adocacionais, cursos monftorUadoa, ascolas f^cnicas, ate. 

A UCTE faeftlta/A m utto o aprandizado »m cursos da prognmaQio a opera^o da computadaras. af4m da parmmr 

o ansino am outras iraas, 
AUCTEdf&paflsaQusai/ic^moaodoGassotaaosaucuatoimanofdoqtiacompfarosgmvadOfssparaoa 

tarmlnala. 

OBS.:A UCTEpodaaofutmadacom o DQT-IOd Conauftaaauravandador. 



200 

205 
210 
21S 

220 
223 
230 
23S 
240 
245 
2S0 

255 
260 
2A5 
270 
27S 
ZBO 
2B5 
290 
295 
30O 
303 
310 
313 
320 

325 
330 

33S 
340 



25,25 AT 4: HLJN 24,29 AT 5: 
HLIN 25,28 AT 6: HLIN 26,27 
f*T 7 

COLOR- 12 
fin 0:B =» 39 

FOR N - 32 TO 16 STEP - I 

HLIN Q,A AT N: HLiN 6*39 AT 

N 
:fl=fl+l;B=B-l: NEXT : COLDR^ 
A - 01 a - 39 

FOR N = 32 TQ Ih STEP - 1 

PLOT a,n: plot B,N 

fl » fl + l:B = B - l; NEXT 

FOR N - 10 TO STEP - 1 

VTflB 21: HTflB 15: PRINT Ns '" 

SEO. PARA A LARGADA " 

FOR K *i 1 TO EOO: NEXT 
= PEEK ( - 16336) 

NEXT N 

HOME 

REM JOQQ 

tILEAR 
X = I 
A - 19 
B =■ ia:C ^ 

COLOR- 7: 

FDR T = 500 TO STEP - 1 
E 



17 

GOSU& 435 
T = 500 TO STEP 
PEEX C - 163&4» 



IX - P^EK ( - 1&33A) 
VTAB 22: HTAB 23: PRINT ■ TEM 

PD = "JTI-^ " 

COLOR- d: easuB 420 

IF C > - 31 THEN COLOR- 0: 
GOSUB 43S:C ^ 17:B = IB 

R - INT {IS * RND n n 

IF r^ > 5 AND R < 10 THEN COLOR- 



SEJA PILOTO OU AAECANICO 



DE AVIOES 



OU HELrCOPTEROS 




EMPAER 



0: GOSUB 435: C 1 c + X: COLOR- 
7t GOSLiB 435: UTAB 23: HTAB 
25: PRrWT ■ *■ '■: GOTO 3ia 

343 IF R > 10 AND SCRN( B -(^ 4*0 

) < > 15 THEN COLORE 0: QCSUB 
435: B 'E+2:C-C*X: CDLDR- 
7: SOSUB 433: UTAB 23: HTAB 
25: PRINT ' >" 

350 IF R > 10 AND ^CRNt B * 4,0 
> - 15 THEN COLOR- 0: GDSUB 
435: B i= B - 2: CDUDR^ 7: SOSUB 
433: VTAB 23: HTAB 25: PRINT 

355 IF R < 5 AND ,SC:rN{ B - 2,C> 

< > 15 THEN COLOR= 0: GOSUB 
435: B ■B-2:C = C+X: COL,OR= 

7; eosuB 435: vtae 23: htab 

23: PRINT "< ■' 
3A0 IF R < 5 AND BCRN( B - 2,C) 

- IS thcm coljsre o: eoeus 

435: B = B * 2: COLOR- 7: QOSUB 

435: VTAB 23: HTAB 25: PRINT 
>" 
365 IF E - 136 T^» COLOR- 0: GOSUB 

420:A = A - l: COLOR- Si GOSUB 

420 
370 IF e - 149 THEN C0LDR= O: GDSUB 

420:A = a + l: COLOR* 3: SOSUB 

420 
373 IF SCRNi A ^ 1,31J - 12 OR 

SCRNC A + 3,31> - 12 THEN GOTO 

450 
3B0 COLQR= 7: GOSUB 435 
365 IF SCRNt A,30f = 7 DR SCRN ( 

A + 1,311 =i 7 DR SCRNf A + 

2,30> ' 7 THEN 430 
390 IF E = 177 THEN S = [> 
395 IF E - 17B THEN S - 2 
40O IF S - 2 THEN X - 2: VTAB 22 

: HTAB i: PRINT "PRiriElRA";: 
IMWERBE : HTAB 20: PRINT "S 

EGUNDA'-: VTAB 23: NORn^ : HTAB 

12:K = K + 2: PRINT K 
405 IF S - THEN X - 1: VTAB 22 

: HTflB l: INVERSE : PRINT "P 

RIMEIRA'H NORMAL : HTAB 20: 

: PRINT "SEGUNDA": VTAB 23: HTAB 

12:K - K + i: PRINT K; " KM" 

410 NEXT T: text : HOME J VTAB 1 
OJ HTAB 5: PRINT " VOCE GANH 

QU< >": END 

413 RFH DFS^IMHA □ NDSSQ CARRO 
420 PLOT A^3l: PLOT A, 30: PLOT A 
+ 1,31: PLOT A + 2»3l: PLOT 

A + 2^30 
425 RETURN 
430 R£M DESENHA O CARRO ADVERSA 

RIO 
435 PLOT B,f:: PLOT B,C - i: PLOT 

B + 1,C: PLOT S + 2,C: PLOT 

B + 2,C - 1 
440 RETURN 

445 REM ROTINA DE FIM 
450 HOME : VTAB 21: HTAB 3: PRINT 

"VOCE PERDEU" 
455 FOR n = 1 TD S: COLOR* M 
460 FOR N - TO 39: HLIN 0,39 AT 

n: next N 

465 NEXT M 



NOVO CP 300 PR0L6GICA. 



L- 



Podfrur 
■Gopltdo 1 mil 
Impreuara 



Opequeno 
grande mkra 

Agora, na hora de escolher enlre jm 
microcomputador pessoal simples, de f^cil 
manejo e um soffslfcado microcompulador 
pfolissional, voce pode ficar com os dois. 
Pofque chegou o novo CP 300 Prol^gica 
novo CP 300 tern prego de ^, 

microcomputador pequeno. Mas memdria 
de microcomputador grande. 

^ _ E!e jS nasceu com 64 
kbytes de memdria 
interna com 

pOSSJbJIJdadE de Pemile 

expansao de memd- """**' 
ria e)(tema para at& 
quase 1 megahfyfe. 
E tern um tecfado profissional, 
que da ao CP 300 uma versalilidade rncfivel, 
Ele pode ser ulilizado com programas de 
lila cass^e^ da mesma maneira que com 
programas em disco. 




Compatlvel com 

programas em lila 
cassete i>u em discOr 






Pode at Ngada 
sum leEEvisor Eanium 

DuaLm soUsllcsdo 



ilnico na sua faixa que ji 
nasce com 64 kbytes de memdria. 



Pode ser ligado ao seifapareitio de TV, da 

mesma Jorma que no lemiiral de video 
de uma grande empress. 
Com oCP 300 vocg pode 
lazer conexoes teiefonicas 
para coleEa de dados, 
se utilizar 
deuma 
impressora 

e ainda dispor de todos 
OS programas exislentes 
para o CP 500 ou o 
wsitnia TRS-80 americano. E o que e melhor: 
" voce estara apio a operar qualquer 
outro sistema de microcompulador. 

Nenhum outro microcomputador pessoal 
na sua laixa lem tantas possibilidades de 
expansao ou desempentio igual. 
CP 300 Proldgica. 

Osoulrosnao ^bb PROLOGICA 

fazem o que e[e laz. ■■ft fncfoomQutMotts 

pelo prego que ■■■ 

ele cobra. HH •^tncMinCM^SHAtia sp 



l^^^'fEMESCAD" 




\ % \'^ \^ 



--S ^^ \'^ ''^ "■ 



\'=. \0 \-. \' 



CiSudio Lto/iMfdo Miifont Duret nm 1B*fioi a i ttuno do fmtituv? Aft- 
Toditit Stftfitu. Poaui um Asiph if nt um Kto a »iu4ifn*rti9 tttH fattn- 
do Q Curto dt Fofma^ dt Pros/amaOOfwa a Antiftrat df Sitramat nt 

fscviffBtte dB Cid^dm. 



A€ 
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CiiiaM-32t-230^W&-CattiCpa&'ap.)e-3ft3E??l) Douraflas • 421- 1052 
►MG-Bt^l'*Ofirerrt*-237-0B81-BSm-iJ|.3B0e Ctl Fjfif<4flo-fl41-3«0Ci- Juu 
dfl F»i -2\1%7^ Ubtfim<i - ;3^1099<PA«elbii ■ ZZS-OOll « PRH^scMi - n\i3& ■ Cuii- 
litu - 224-5616 - 224-342J - For dft l^uapj ■ 73:3?3< • lw<Wni - 234)0^* PE-FtKlh - !2l 01 43 • P1-TEr«Sina 
^2-01 66 * fU-C*T^iC(j - Z2-m* - flip de J«^o - 2W'b757 ■ 253-3^ - 2S2-2050 - flH-fiatal - 2?J-3?1 ? ■ HS-C*i« to 
2?1 151& ■ Psctoi - 22-9918 - PoJlB Aie^r ■ K-48M - 24-0311 ■ Sirti Rom - SiMSffl 'flO-PWW V^in^ ■ 22(.26M - &P 
Bi'riiiK. ■ 27-641 1 - [IdTT^ne - 2*m ^ JtfHb< > G*K22 - Mnild - 33-^099 - lAo^ ^ Cmm - 4E^&S40 - PirsctiCn ^ 1470 - R'b&rJo 
P^!U-B25-5m-Ei35'nK-SioJDi(|LJl[n[&Bvn-72fl-2472-SdDJos4d(aCampK'22-7;3l<-^^H|74^ 3^'2^ - Saptca 3^-2230 

^fau£« - 2!i-JJ9* ' SC-Bli/neuu ^ ZlSilJ ■ CrupocA - ^i-tiXi} - Cfcvm - 33-2ti(H - f kKan{l{«li$ - 22-9K2 - Jofrnkg - 33 ' 7^ < St->>^aa[u - 22i- 1 3IQ 



^'^. 




SottcKft 
demonstrac^ 
!»« prtnclpais 
msgaiinH. 



J>l^* 




■b 

I 



^3 

a 
a 



A Microdigital apresenta 
o no\/oTK 2000 cokx 



Que fai om micro de oho performance, que traz as prlncipais coroc*eristico5 

<Jos equipamenfos mok sof'isficados e que noo exige de voce um gronc/e 

f/jvesh'menfo /nrcia/^f que ta/ urn micro que cresce c/e ocordo com os suos 

necewidade^? Soo esfas as van/ogens que vao hzer do novissimo 

TK 2000 Co/of urn do5 mo:ores sucessos no sefof. 

Ve/a: e/e fern 64K de memoria RAM e 16K de memorio ROM, fechdo profhsionaf 

tipo maquino de escrever, recebe diskefie e impressoro com inferhce /a confido, 

irohaiha em cores, o/er«e o/fa resohqao grafico e som. 

Peqa uma demortshoqao. Nunco ianto hi ihe ofereddo por fdo poyco. 

Grande quanfidade de software disponivet (enfre eles: diversos apHcafivoB 

comerciais e jogoi a cores de aha resoh<i6o grafico), 

Betemtuikpqueum 
micro deyeter.l\/khosoprego. 
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